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ABSTRACT 


^A  BASIC  program  has  been  developed  for  the  Hewlett-Packard  Model 
9845  desk-top  computer  which  allows  the  creation  of  blood  donor  files 
for  subsequent  retrieval,  update,  and  correction.  A  similar  modified 
version  was  developed  for  the  HP  9835  Model.  This  software  system  has 
been  called  BLISS  which  stands  for  Blood  Information  and  Security  System. 
In  addition  to  its  function  as  a  file  management  system,  BLISS  provides 
warnings  before  a  donation  is  performed  to  protect  the  donor  from  excess¬ 
ive  exposure  to  radioactivity  and  DMSO  levels,  from  too  frequent  of  don¬ 
ations  of  blood,  and  from  adverse  reactions.  The  program  can  also  be  used 
to  select  donors  who  have  participated  in  specific  studies  and  to  list 
the  experimental  details  which  have  been  stored  in  the  file.  The  BLISS 
system  has  been  actively  utilized  at  the  Naval  Blood  Research  Laboratory 
in  Boston  and  contains  the  files  of  over  750  donors,  v 
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INTRODUCTION 


A  need  existed  at  the  Naval  Blood  Research  Laboratory  in  Boston  to 
have  easy  and  quick  access  to  information  files  on  blood  donors,  so  that 
they  can  be  better  protected  from  excessive  exposure  to  radiation  from 
too  frequent  donation/transfusions. 

To  this  purpose,  the  computer  software  system  was  developed  for  use 
on  the  Models  9845  and  9835  Hewlett-Packard  desk- top  computers.  The 
programming  language  was  BASIC.  The  system  has  been  called  BLOOD  INFORMATION 
AND  SECURITY  SYSTEM,  now  known  as  BLISS  in  its  abbreviated  form. 

BLISS  consists  of  six  main  programs  and  four  peripheral  programs 
as  follows: 

MAIN  PROGRAMS 

DONOR  Generates  and  updates  an  information  file  for  each  donor. 

SOCIAL  Lists  donor's  social  security  and  storage  disk  numbers. 

LIST  Lists  information  from  all  or  selected  donations  for  each 

number. 

WRONG  Makes  corrections  on  previously  entered  data. 

ALERT  Lists  DMSO  and  radioactivity  levels  previously  received  and 

warns  if  the  imminent  transfusion  would  exceed  the  safety 
limit  for  the  donor. 

SELECT  Lists  the  name,  social  security  number  and  donation  dates  of 
all  donors  having  a  user-given  combination  of  experimental 
conditions. 


PERIPHERAL  PROGRAMS 


HOW-TO 

BACKUP 

NUMBER 

FILE 


Provides  information  and  instructions  about  the  BLISS  system. 

Copies  all  data  from  main  disks  to  a  second  set  of  disks 
stored  elsewhere  for  emergency  backup. 

Creates  a  file  on  data  storage  disks  which  prevents  the 
user  from  adding  data  to  the  wrong  disk  or  mixing  up 
main  disks  with  back-up  disks. 

Creates  a  file,  similar  to  REGIS,  which  can  be  used  to 
store  social  security  and  storage  disk  numbers.  This 
allows  the  user  to  test  programing  changes  without  risk 
to  existing  data,  or  to  use  BLISS  to  keep  a  separate 
set  of  data  not  related  to  the  main  security  system. 


OPERATION 


To  start  operation  of  the  BLISS  system  a  user  is  instructed 
to  do  the  following: 


TO  OPERATE  A  PROGRAM  DO  THE  FOLLOWING: 

1.  INSERT  PROGRAM  DISK  INTO  THE  TOP  FLEXIBLE  DISK  DRIVE  AND  OTHER 
DISKS  INTO  THE  LOWER  DISK  DRIVES  AS  CALLED  FOR  BY  THE  PROGRAMS 

2.  liFE  THE  COMMAND:  GET  "BLISS:  F8",  10,  19  (USING  REGULAR 
QUOTE  MARKS).  PRESS  KEYBOARD  KEY  'EXECUTE' . 

?.  PROGRAM  BEGINS.  PLACE  BLISS  OVERLAY  ON  THE  UPPER  RIGHT  HAND 
KEYS.  ALL  RESPONSES  EXCEPT  YES  &  NO  MUST  BE  FOLLOWED  BY  'CONT' 

5.  BE  SURE  TO  ANSWER  ALL  QUESTIONS  WITHIN  THE  PROGRAM.  IF  NOT 
APPLICABLE,  ENTER  O  AND  PRESS  CONT'. 

6.  IF  YOU  ENCOUNTER  PROBLEMS  AND  WANT  TO  START  OVER,  PRESS 
KEYBOARD  KEYS  'STOP  AND  THEN  'RUN'. 


OTHER  INFORMATION  YOU  MAY  NEED: 

1.  THE  QUESTION  COMPUTER  9835  OR  9845?'  REFERS  TO  THE  MODEL 

NUMBER  SHOWN  ON  THE  FACE  OF  THE  MACHINE.  BLISS  WILL  OPERATE 

ON  EITHER  MACHINE,  HOWEVER,  FOR  MODEL  9835,  VARIABLE  NAMES 
APE  PRESENTED  ON  A  TYPED  SHEET  STORED  IN  THE  PROGRAM  DISK 
ENVELOPE  AND  PRINTED  OUTPUT  APPEARS  IN  HIGHLY  ABBREVIATED 
FORM.  IT  IS  RECOMMENDED  THAT  YOU  BECOME  FAMILIAR  WITH  BLISS 
ON  MODEL  9845. 

2.  EACH  PROGRAM  WILL  GIVE  YOU  THE  STORAGE  DISK  NUMBER  OF  THE 

DONOR.  BECAUSE  THE  PROGRAM  DISK  CONTAINS  THIS  INFORMATION 
BE  SURE  THAT  IT  IS  ALWAYS  INSERTED  INTO  THE  TOP  DISK  DRIVE. 
INSERT  OTHER  DISKS  AS  CALLED  FOR  IN  THE  LOWER  DISK  DRIVES. 

3.  PLEASE  WRITE  DOWN  YOUR  PROBLEMS  AND  IDEAS  FOR  IMPROVEMENTS 

AND  GIVE  THEM  TO  STINA  COOKE  (MON  FRI  AFTERNOONS). 


THE  DONOR  PROGRAM 


Upon  loading  the  BLISS  system  (see  example  1  below)  and  subsequently 
the  DONOR  program,  the  following  questions  are  asked  on  the  CRT  screen. 

a.  DONATION  PERFORMED  (Y/N)  ? 

b.  SOCIAL  SECURITY  NO.? 

c.  DONATION  DATE? 

d.  METHOD  OF  (BLOOD)  COLLECTION? 

e.  TYPES  OF  CELLS  AND  STUDY? 

f.  BLOOD  VOLUME  DRAWN  (ML)? 

g.  KIND  OF  STORAGE  AND  CELL  AGE? 

h.  REJUVENATION  SOLUTION? 

i.  51-CR  RADIATION  (MICROCURIES)? 

j.  125-1  RADIATION  (MICROCURIES)? 

k.  111-INDIUM  RADIATION  (MICROCURIES)? 

l.  DMSO  CONCENTRATION  (%)? 

m.  RESIDUAL  DMSO  INFUSED  (MG)? 

n.  AUTOTRANSFUSION  NUMBER? 

o.  SPECIAL  CODE  NUMBER? 

p.  ANY  REACTIONS? 

q.  WASH  SOLUTION? 

r.  COMMENTS? 


s.  MORE  COMMENTS? 
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It  should  be  noted  that  a  donation  file  will  be  created  only 
if  the  donation  has  been  performed  i.e.  answering  YES  in  question 
(a).  When  the  social  security  number  is  given  the  program  searches 
to  see  if  the  donor  already  has  a  file  in  which  case  the  number 
of  the  appropiate  disk  is  printed.  The  disk  is  inserted  and  the 
program  continues  with  the  rest  of  the  questions.  When  all  questions 
are  answered,  a  printout  is  produced  with  all  the  information 
accepted  for  user  confirmation. 

Examples  of  the  questionnaire  and  the  confirmation  are  shown 
below  (examples  2  and  3). 


EXAMPLE  1 


LOADING  BLISS 


GET  "ELISSJFS", 16, 10 

Compu t-er  Number7  '■  q o <=;  |-.p  .50.1 

9845  . .  ' 

^  ®  ^  O  V  €'  r  1  iL1;.1  fj  I  l~-  I  j  Q  f|  F  !=•  I 

Y 

SELECT  ANY  PROGRAM 

EXAMPLE  2 


RUNNING  "DONOR" 

LOAD  “ DONOR 4 : F8" , 10 
D 0 HAT  1 0 N  P E R F 0 R M E D  <  Y  H  > 

Y 

SOCIAL  SECURITY  NO.? 

111-11-1111 
PLEASE  WAIT 
INSERT  DISK  NO.:  1  PRESS  CONT 
DONATION  DATE  IN  THt  FORM  IlM-DD- 

II- 17-81 

METHOD  OF  COLLECTION  ? 

CFD 

TYPES  OF  CELLS  AND  STUDY? 

RBCTX 

BLOOD  VOLUME  DRAWN?  <MLS> 

80 

KIND  OF  STORAGE  AND  CELL  AGE? 
FZNIHM 

R  E J U V E  N A  T 1 0 N  SOL  U  T 1 0 N  ? 

NR 

51  -CR  RADIATION  (  M I C  ROC  UR  I ES  :>  ? 
5.0 

125-1  RADIATION  (.MICROCOPIES?? 
0.5 

III- 1 ND I UM  RAD  I  AT  I  ON  ' M I CROCUR I E 
0 

DMSO  CONCENTRATION  <*;>? 

O 

RESIDUAL  DMSO  INFUSED  -MG'? 

0 

AUTOTRANSFUS  I  ON  NUMBER  " 

1  10  6 

SPECIAL  CODE  NO.? 

0 

ANY  REACTIONS" 

0 

WASH  SOLUTION"' 

9  2-6. 8-40 
COMMENTS" 

0 

MORE  COMMENTS" 


EXAMPLE  3 


CONFIRMING  ANSWERS 

HERE  IS  THE  INFORMATION  YOU  ENTERED 

SQC I RL  SEC UP  I  TV  NUMBER .=  111-11-1111 

DATE  OF  DONATION*  11-17-31 
METHOD  OF  COLLECTION*  CPD 
TYPES  OF  CELLS  AND  STUDY*  RBCTX 
BLOOD  VOLUME  DRAWN*  80  MLS 
KIND  OF  STORAGE  AND  CELL  AGE*  FZNINM 
REJUVENATION  SOLUTION*  NR 

51- C R  RADIATION*  5.0  MICROCURIES 
125-1  RADIATION*  0.5  MICROCURIES 
111-INDIUM  RADIATION*  0  MICROCURIES 
DMSO  CONCENTRATION*  0* 

RESIDUAL  DMSO  INFUSED*  0  MG 
A  U  T  0  TRAN  S  F  U  S 1 0  N  N  ''•  =  1106 

SPECIAL  CODE  f  .=  0 

REACT  jNS*  0 

WASH  SOLUTION*  9/2-6.8-40 
COMMENTS*  O 
MORE  COMMENTS*  0 

IS  THE  CORRECT  INFORMATION?  <Y-N> 

Y 

PLEASE  WAIT 
ANOTHER  DONOR  ?  (  Y - N .» 

N 

SELECT  ANY  PROGRAM 


If  the  information  is  not  correct,  no  record  is  created  and 
the  questionnaire  reappears  on  the  screen. 


THE  LIST  PROGRAM 


This  program  lists  selected,  or  all  donations  of  a  donor 
by  using  his  social  security  number 

EXAMPLE  4 

RUNNING  "LIST" 


LOflL  " L I S T 4 : F 8 " , 10 
SOCIAL  SECURITY  NO.? 

111-11-1111 
PLEASE  WAIT 

INSERT  DISK  NO.:  1  PRESS  'CONT 
DO  YOU  WANT  A  PRINTED  r:fi pyj  < y  ••  N  ■ 

Y 

DO  YOU  WANT  ALL  DONATIONS  LISTED?  CY-N) 
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EXAMPLE  5 


LIST  OUTPUT 

SOC  I  AL  SECUR  I  TV  HO.  :  111-11-1111 

NAME:  ALFRED  RENTA 

NO.  OF  DONATIONS:  4 

disk:  i 


DONATION  NO.:  1 

DATE:  01-13-81 

METHOD  OF  COLLECTION:  CRD 
TYPES  OF  CELLS  AND  STUDY:  RBCTX 

BLOOD  VOLUME  DRAWN:  80  MLS 

KIND  OF  STORAGE  AND  CELL  AGE:  FZNINM 
REJUVENATION  SOLUTION:  NR 

51-CR:  5.0  MICROCURIES 

125-1:  0.5  MICROCURIES 

111- INDIUM:  0  MICROCURIES 

DMSO  CONCENTRATION:  0'/. 

RESIDUAL  DMSO  INFUSED:  0  MG 
AUTOTRANSFUSION  NO. :  1076 

SPECIAL  CODE  NO.:  004691 
REACTIONS*.  0 

WASH  SOLUTION:  9/2-6.8-40 
COMMENTS:  POOR  FTW 

MORE  COMMENTS:  FZN  ERR 


DONATION  NO.:  2 

DATE:  04-23-81 

METHOD  OF  COLLECTION:  CPD 
TYPES  OF  CELLS  AND  STUDY:  RBCTX 

BLOOD  VOLUME  DRAWN:  30  MLS 

KIND  OF  STORAGE  AND  CELL  AGE:  FZNOUM 
REJUVENATION  SOLUTION:  PIPAC 

51-CR:  5.0  MICROCURIES 

125-1:  0.5  MICROCURIES 

111-INDIUM:  0  MICROCURIES 

DMSO  CONCENTRATION:  0!i 
RESIDUAL  DMSO  INFUSED:  0  MG 
AUTOTRANSFUSION  NO.:  1095 
SPECIAL  CODE  NO.:  004718 
REACTIONS:  1-125 

WASH  SOLUTION:  9/2-5 -40 

comments:  0 
MORE  COMMENTS:  0 


THE  SOCIAL  PROGRAM 


This  program  lists  the  social  security  number  and  storage 
disk  number  of  a  specified  number  of  donors. 


EXAMPLE  6 

SOCIAL  QUESTIONNAIRE  AND  OUTPUT 


LOAD  "S0CIA4: 

F8“  ,  10 

DO  YOU  WANT  A 
Y 

NO.  OF  DONORS 

PRINTED 

COP 

:  9 

SOC.  SEC.  NO. 

: 

111-11-1111 

DISK 

1 

222-22-2222 

DISK 

1 

333-33-3333 

DISK 

1 

444-44-4444 

DISK 

1 

0O1-23-45S7 

DISK 

1 

777-77-7777 

DISK 

1 

888-83-8888 

D I SK 

1 

125-14-1270 

DISK 

1 

025-25-2567 

DISK 

1 

t  Y"  N  > 


END 

SELECT  ANY  PROGRAM 
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THE  SELECT  PROGRAM 


This  program  lists  the  name,  social  security  number  and  donation 
date  of  all  donors  subjected  to  a  specified  treatment.  With  this 
information,  the  user  may  retrieve  the  experimental  details  by  using 
the  LIST  program. 


EXAMPLE  7 

SELECT  QUESTIONNAIRE 


LOAD  " SELEC4 : F8 “ ,  10 

METHOD  OF  COLLECTION  <0  IF  HOT  INTERESTED) 

CPD 

TYPES  OF  CELLS  &  STUDY?  (0  IF  NOT  INTERESTED) 

0 

KIND  OF  CELLS  STORAGE  AGE'  <0  IF  NOT  INTERESTED) 
0 

REJUVENATION  SOLUTION?  <0  IF  NOT  INTERESTED) 

PIPAC 

DO  YOU  WANT  A  PRINTED  COPY?  (Y-N) 

Y 


111-11-1111 
ALFRED  RENTA 
04-23-81 


222-22-2222 

MILO  BENDER 
07-11-81 


333-33-3333 

CHER  I  SOBEL 

01-09-81 

01-12-31 


III 


THE  ALERT  PROGRAM 


This  program  searches  a  donors  file  and  provides  Warning 
Conditions  of  radioactivity,  DMSO  levels,  blood  volume  withdrawn 
and  frequency  of  donation  exceed  certain  limits  set  by  the  Naval 
Blood  Research  Laboratory 


EXAMPLE  9 

ALERT  QUESTIONNAIRE 


LOAD  "  ft  L  E  R  T  4 :  F  8  "  , 10 

DO  YOU  WANT  ft  PRINTED  COPY?  Y  ■  N  > 

Y 

SOCIAL  SECURITY  NO.? 

222-22-2222 
PLEASE  WAIT 

INSERT  DISK  NO.:  1  PRESS  CONT 
TODAY'S  DATE  CMH-DD-YY) 

09-25-81 

WHAT  TYPE  OF  STUDY  DO  YOU  INTEND  TO  DO"' 
RBCDR 

VOLUME  OF  BLOOD  YOU  INTEND  TO  DRAW? 


EXAMPLE  10 
ALERT  OUTPUT 

DONOR  MR ME : 
SOCIAL  SECURITY  HO.: 

TODAY'S  DATE: 
STUDY  PLANNED: 
VOLUME  TO  BE  DRAWN: 


MILO  BENDER 
222-2 
09-25 
RBCDR 
450  ML 


RADIOACTIVITY  AND  DMSO  DATA 


DATE 

DMSO  CONCENTRATION 
RESIDUAL  DMSO  INFUSED 
51-CR 
125-1 
1 1 1 -INDIUM 

DATE 

DMSO  CONCENTRATION 
RESIDUAL  DMSO  INFUSED 
51-CR 
125-1 
111-INDIUM 


04 

03-8 1 

0  "« 

0 

MG 

5. 

0 

M 1  CROC UR  I 

ES 

0. 

5 

MICROCURI 

ES 

0 

M 

I CROCUR I ES 

0? 

- 

11-81 

0* 

0 

MG 

5. 

0 

MICROCURI 

ES 

0. 

5 

MICROCURI 

ES 

0 

MICROCURIES 

REACTIONS  ALERT 


PLEASE  WAIT 


RADIOACTIVITY  ALERT 


DU  NOT  USE  THIS  DONOR 

-PERFORMED  WITHIN  THE  LAST  90  DAYS 


BLOOD  VOLUME  ALERT 


3  TUP —  DU  NUT  USE  THIS  DONOR 

450  ML  SO  DAYS  PLUS  450  WILL  EXCEED  LIMIT 


DRAW  ALERT 


THE  HOW-TO  PROGRAM 


This  program  provides  a  copy  of  instructions  for  operating  the  BLISS  program 


EXAMPLE  11 
HOW-TO  OUTPUT 


LORD  "HOW-TO: FS" , 1© 

IiO  YOU  WANT  A  PRINTED  COPY  OF  THESE  INSTRUCTIONS?  < Y^N) 

Y 

WELCOME  TO  THE  BLOOD  INFORMATION  AND  SECURITY  SYSTEM  KNOWN  AS: 


BLISS 


THIS  SET  OF  SIX  MAIN  AND  FOUR  PERIPHERAL  PROGRAMS  WAS  DESIGNED  BY 
DR.  NICHOLAS  CATSIMPOOLAS  AND  ADAPTED  FOR  USE  ON  THE  MODELS  9835  AND  9845 
HEWLETT-PACKARD  DESK- TOP  COMPUTERS  BY  STINA  COOKE  FOR  THE  NAVAL  BLOOD  RESEARCH 
LABORATORY  IN  BOSTON. 

THESE  PROGRAMS  STORE  INFORMATION  ON  BLOOD  DONORS,  PROVIDE  EASY  ACCESS 
TO  DATA,  WARN  PERSONNEL  OF  EXCEEDED  SAFETY  LIMITS  AND  ALLOW  THE  USER  TO  SEARCH 
FOR  DONORS  MEETING  CERTAIN  EXPERIMENTAL  CONDITIONS. 


BLISS  CONSISTS  OF  SIX  MAIN  PROGRAMS: 

DONOR  GENERATES  AND  UPDATES  AN  INFORMATION  FILE  FOR  EACH  DONOR. 

SOCIAL  LISTS  DONOR'S  SOCIAL  SECURITY  AND  STORAGE  DISK  NUMBER. 

LIST  LISTS  DATA  FROM  ALL  OR  SELECTED  DONATIONS. 

WRONG  MAKES  CORRECTIONS  ON  PREVIOUSLY  ENTERED  DATA. 

ALERT  LISTS  DMSO  AND  RADIOACTIVITY  LEVELS  PREVIOUSLY  RECEIVED, 

AND  WARNS  IF  DONOR  SAFTEY  LEVELS  HAVE  BEEN  EXCEEDED. 


SELECT 


LISTS  THE  NAME,  SOCIAL  SECURITY  NUMBER,  AND  DONATION 
DATES  OF  ALL  DONORS  HAVING  A  USER-GIVEN  COMBINATION  OF 
t.  I  MENTAL  CONDITIONS. 
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HOW-TO  OUTPUT  (continued) 


ftNIi  FOUR  PEP  I PHEPAL  PROGRAMS: 

HOW-TO  PROVIDES  I NFORMftT I OH  AMD  INSTRUCTIONS  ABOUT  THE  SYSTEM. 

HOW-TO  OPERATES  ONLY  ON  MODEL  9845  HMD  DISPLAYS  ON  SCREEN 
OR  WITH  OPTIONAL  PAPER  PRINT-OUT. 

BACKUP  COPIES  ALL  DATA  FROM  MAIN  DISKS  TO  A  SECOND  SET  OF  DISKS 
.TOPED  ELSEWHERE  FOR  EMERGENCY  PURPOSES. 

NUMBER  CREATES  A  FILE  CALLED  "Number"  ON  NEW  STORAGE  DISKS  WHICH 
PREVENTS  ADDING  DATA  TO  THE  WRONG  DISK  OR  MIXING  UP  MAIN 
DISKS  WITH  BACKUP  DISKS. 

FILE  CREATES  A  FILE  WHICH  CAN  EE  USED  TO  STORE  SOCIAL  SECURITY 

AND  STORAGE  DISK  NUMBERS.  THIS  ALLOWS  THE  USER  TO  TEST 
PROGRAMMING  CHANGES  WITHOUT  RISK  TO  ESTABLISHED  DATA,  OR 
TO  USE  'BLISS'  TO  KEEP  A  SEPARATE  SET  OF  DATA  NOT  RELATED 
TO  THE  MAIN  SECURITY  SYSTEM. 


TO  OPERATE  A  PROGRAM  DO  THE  FOLLOWING: 

1.  INSERT  PROGRAM  DISK  INTO  THE  TOP  FLEXIBLE  DISK  DRIVE  AND  OTHER 
DISKS  INTO  THE  LOWER  DISK  DRIVES  AS  CALLED  FOR  BY  THE  PROGRAMS. 

2.  TYPE  THE  COMMAND:  GET  " "BLISS: F8" " , 10, 10  (USING  REGULAR 
QUOTE  MARKS).  PRESS  KEYBOARD  KEY  "EXECUTE". 

3.  PROGRAM  BEGINS.  PLACE  BLISS  OVERLAY  ON  THE  UPPER  RIGHT  HAND 
KEYS.  ALL  RESPONSES  EXCEPT  YES  8,  NO  MUST  BE  FOLLOWED  BY  "CONT". 

5.  BE  SURE  TO  ANSWER  ALL  QUESTIONS  WITHIN  THE  PROGRAM.  IF  NOT 
APPLICABLE,  ENTER  "0  AND  PRESS  "CONT". 

6.  IF  YOU  ENCOUNTER  PROBLEMS  AND  WANT  TO  START  OVER,  PRESS 
KEYBOARD  KEYS  "STOP"  AND  THEN  "RUN". 


OTHER  INFORMATION  YOU  MAY  NEED: 

1.  THE  QUESTION  COMPUTER  9835  OR  9845?"  REFERS  TO  THE  MODEL 

NUMBER  SHOWN  ON  THE  FACE  OF  THE  MACHINE.  BLISS  WILL  OPERATE 
ON  EITHER  MACHINE,  HOWEVER,  FOR  MODEL  9835,  VARIABLE  NAMES 
ARE  PRESENTED  ON  A  TYPED  SHEET  STORED  IN  THE  PROGRAM  DISK- 
ENVELOPE  AND  PRINTED  OUTPUT  APPEARS  IN  HIGHLY  ABBREVIATED 
FORM.  IT  IS  RECOMMENDED  THAT  YOU  BECOME  FAMILIAR  WITH  BLISS 
ON  MODEL  9845. 


m 


2.  EACH  PROGRAM  WILL  GIVE  YOU  THE  STORAGE  DISK  NUMBER  OF  THE 
DONOR.  BECAUSE  THE  PROGRAM  DISK  CONTAINS  THIS  INFORMATION 
BE  SURE  THAT  IT  IS  ALWAYS  INSERTED  INTO  THE  TOP  DISK  DRIVE 
INSERT  OTHER  DISKS  AS  CALLED  FOR  IN  THE  LOWER  DISK  DRIVES. 

3.  PLEASE  WRITE  DOWN  YOUR  PROBLEMS  AND  IDEAS  FOR  IMPROVEMENTS 
AND  GIVE  THEM  TO  ST  IMA  COOKE  (MON  t.  FRI  AFTERNOONS). 

END 

SELECT  ANY  PROGRAM 


THE  WRONG  PROGRAM 


This  program  makes  corrections  on  previously  entered  data  on  a 
particular  donors  file. 

EXAMPLE  12 

WRONG  QUESTIONNAIRE 


B  L  I  o 

PROGRAM  WRONG 


1  3  0  C  I  A  L  -•  E U  R  I  T  Y  N  0 . 

3  DONOR  3  LAST  NAME 
5  METHOD  OF  COLLECTION 
7  KIND  OF  STORAGE  AND  CELL  AGE 
9  51-CR  RADIATION 

11  111 -INDIUM  RADIATION 

13  RESIDUAL  DMSO  INFUSED 
15  SPECIAL  CODE  NO. 

17  ENTIRE  DONATION 
19  COMMENTS 
21  BLOOD  VOLUME 


2  DONOR'S  FIRST  NAME 
4  DATE  OF  DONATION 
6  TYPES  OF  CELLS  AND  STUDY 
8  REJUVENATION  SOLUTION 
10  125-1  RADIATION 

12  DMSO  CONCENTRATION 
14  AUTOTRANSFUSION  NO. 

16  REACTIONS 
18  WASH  SOLUTION 
20  MORE  COMMENTS 


WHAT  IS  WRONG?  < ITEM  NUMBER) 

21 

DONOR  S  SOCIAL  SECURITY  NO.? 
111-11-1111 
PLEASE  WAIT 

INSERT  DISK  NO.:  1  PRESS  'CONT' 
DONATION  DATES: 


tt  1  01-13-31 

tt  2  04-23-81 

tt  3  05-15-81 

tt  4  11-17-81 

DONATION  NO. ? 

1 

BLOOD  VOLUME  DRAWN  :MLS>? 
38 


THE  BACKUP  PROGRAM 


This  program  provides  a  series  of  instructions  which  the  user  has 
to  perform  correctly  in  order  to  copy  the  contents  of  a  disk  to  a  duplicate 
(back-up)  disk. 


THE  NUMBER  PROGRAM 

This  program  provides  a  series  of  instructions  to  create  a  file  on 
additional  data  disks  which  prevents  the  user  from  inadvertently  adding 
data  to  the  wrong  disk  or  mixing  main  with  back-up  disks. 

THE  FILE  PROGRAM 

This  program  provides  steps  to  create  a  file  similar  to  REGIS 
(the  social  security  number  phone  book)  which  allows  the  user  to  test 
programming  changes  without  risking  existind  data,  or  to  keep  a  separate 
set  of  data  not  related  to  the  main  security  system. 


DONOR 


10  PRINTER  IS  lb 
20  PRINT  PAGE 
30  PRINT  "BLISS" 

40  PRINT 

50  PRINT  "PROGRAM  DONOR" 

EO  PRINT 
70  PRINT 

80  MASS  STORAGE  IS  “ :F8,1H 

90  L INPUT  "DONATION  PERFORMED  OrVN  >“,  Performed* 

100  IF  Performed** "Y"  THEN  130 
110  PRINT  "SORRY,  WRONG  PROGRAM" 

120  GOTO  2640 

130  LINPUT  "SOCIAL  SECURITY  NO.?",Ss* 

140  IF  Ss*[4; 1 ]< >"-"  THEN  180 
150  IF  Ss*C7;  130"-"  THEN  180 
160  IF  L E N <  S s T >  >  1  1  THEN  130 
170  GOTO  210 

180  DISP  "INCORRECT  SS# — TO  TRY  AGAIN  PRESS  "CONT'“ 

190  PAUSE 

200  GOTO  130 

210  DISP  "PLEASE  WAIT" 

220  G#=Ss*[5,6] 

230  P*=Ss*C3, 1 1  1 
240  F i 1 e*=0*&P# 

250  ASSIGN  #5  TO  "REGIS: F3" 

260  READ  #5,  1 ; P 

270  FOR  I=P+1  TO  2  STEP  -1 

280  READ  #5, l;Ssl*,Disk 

290  IF  Ssl*=Ss*  THEN  380 

30O  NEXT  I 

310  Newdonor**"Y" 

320  P8  =  P  +  1 
330  Q=P8'50 
340  Q1=INT(Q> 

350  IF  Q*Q1  THEN  Disk =01 
360  IF  0 >Q 1  THEN  Disk*Ql+l 
370  GOTO  390 
380  N  e w d o  n  o r  # = " N " 

390  DISP  "INSERT  DISK.  NO.:";  Disk.;"  PRESS  'CONT'" 

400  PAUSE 

410  ASSIGN  M3  TO  "Number" 

420  READ  #3 ; D i sk number , D i sk t ype* 

430  IF  Di sktype#< >"M"  THEN  450 
440  IF  Di sk=Di sk number  THEN  488 

450  DISP  "WRONG  DISK,  INSERT  NO . : " ; D i sk ; "  PRESS  'CONT'" 

460  PAUSE 
470  GOTO  410 

480  IF  Newdonor#*“N"  THEN  510 

490  LINPUT  "LAST  NAME  OF  DONOR  <<13  LETTERS) ”, Lastname* 

500  LINPUT  "FIRST  NAME  OF  DONOR  <<13  LETTERS )", F i rst name* 

510  LINPUT  "DONATION  DATE  IN  THE  F0R.1  MM-DD-YY" ,  Dat e* 

520  PRINT 

530  PRINT  "V776"; TAB< 10) ; "(CITRATE-PHOSPHATE  DEXTROSE — NEW  PLASTIC  V776>" 

540  PRINT  "0772  ”  ;  TAB1'  1  O  )  ;  "<  C  I  TR  ATE -PHOSPHATE  DEXTROSE--NEW  PLASTIC  A772>" 

550  PRINT  "V1035" ; TAE< 10  ;" (CITRATE-PHOSPHATE  DEXTROSE— NEW  PLASTIC  V1035)" 
560  PRINT  "CPD";TAB<10>; "-CITRATE-PHOSPHATE  DEXTROSE— STANDARD  COLLECTION  BAG 
570  PRINT  " ACD" : TAB( 1 0 ) ; "(ACID  CITRATE  DEXTROSE)" 

580  PRINT  "CPDA1 " : TAB- 10 ■ : " (CITPATE-PHOSPHATE-DEXTROSE-ADENINE  1)" 
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DONOR 


590 
•500 
610 
620 
6  30 
640 
6  5  0 
6  6  0 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
81u 
320 
330 
840 
850 
860 
870 
880 
890 
900 
91© 
920 
930 
940 
950 
960 


PRINT  "CPDA2" ; TAB(  1 0 > ; “ <C I TR AT E-PHQSPH ATE- DEXTROSE-ADENINE  2> " 
PRINT  " CPDA3 “  ;  TAB1- 10>  ;  "  ‘'CITRATE-PHOSPHATE-DEXTROSE-ADENINE  3)  " 
PR  I  N T  “  HEP  "  ;  TAB  <  1 0  j  ;  "  (  HER AR  I N  )  “ 

PRINT  “RCPD " ;  TAB  *,  1 0  )  ;  "  (  1  UNIT  RBC  RETURNED;  CPD>" 

PRINT  "RACD" ;TAB‘ IQ); " (1  UNIT  RBC  RETURNED;  ACD>" 

PRINT  "2  RCPD"; TAB‘10); "(2  UNITS  RBC  RETURNED;  CPU)" 

PRINT  "2  RACD " ; TAB ( 10); "  (  2  UNITS  RBC  RETURNED;  ACD>" 

PRINT  "  RCPDA 1 " ; TAB ( 1 Q  > ; ” (  RBC  RETURNED  CPDR1)" 

PRINT  "RCF'DA2":TABO0>;  "(RBC  RETURNED  CPDA2) " 

PRINT  "RCPDR3";TAB( 10); "(RBC  RETURNED;  C P D A 3 ) “ 

PR  I NT  “ADL " : TAB < 1 0 > ; " ( PHERES I S > " 

PR  I  NT  " I  BN “ ; TAB< 10> ; "  ( PHERES IS)" 

PRINT  "FENWAL": TABC 10); " < PHERES I S ) " 

PRINT  "OTHER" ; T AB  ( 10) ; " (MISCELLANEOUS) " 

(.INPUT  "METHOD  OF  COLLECT  I  ON?  "  ,  Me  t  hod  t 

PRINT  PAGE 

PRINT 

PRINT  "RBCTX"; TAB< 13); " (RED  CELL  TRANSFUSION)" 

PRINT  "  RBCDR  "  ;  TAB  13);  "  (  RED  CELL  UNIT  DRAW)" 

PRINT  "PLTTX"  ;  TAB1'  13)  ;  "  (PLATELET  TRANSFUSION)" 

PRINT  “PLTDft" ; TAB< 13) J "  (FlATELET  DRAW-WHOLE  BLOOD)" 

PRINT  “PLTDRPPP"  ;  TAE<  13)  ;  “-'PLATELET  DRAW-PLATELET  RICH  PLASMA)" 
PRINT  "PLTDRPPP"  ;  TABUS)  ;"  (PLATELET  DRAW-PLATELET  POOR  PLASMA)" 
PRINT  "  WBCTX"  ;  TAB  <:  1  3  )  ;  "<  WHITE  BLOOD  CELL  TRANSFUSION)" 

PRINT  "WBCDR"  J  TRB(  13) ’,"  (WHITE  BLOOD  CELL  DRAW)" 

PRINT  "SSAMP" ; TAB( 13) ; " < 1-50  ML  SAMPLE)" 

PRINT  "LSAMP"; TABC 13) ; “(GREATER  THAN  50  ML  SAMPLE)" 

PRINT  "EYE";TAB(13); "‘EYE  EXAM)" 

PRINT  "BONEM,,;TAB(  13);  "(BONE  MARROW)" 

PRINT  “PBSTEM"; TAB( 13); "(PERIPHERAL  BLOOD  STEM  CELLS)" 

PRINT  " N  E  0  C  T  X " ; T  A  E ( 1 3 ) ; " ( N  E  0  C  Y  T  E  S  TRANSFUSION)" 

PRINT  "NEOCDP" ; TAB( 13) ; "(NEOCYTE  DRAW)" 

PRINT 

PRINT 

LINPUT  "TYPES  OF  CELLS  AND  STUDY? ",  Types* 

PRINT  PAGE 

LINPUT  "BLOOD  VOLUME  DRAWN?  < MLS) " , Vo  1  urns* 

PRINT 


970  PRINT  "LIQOU" ; TflB( 10) ;" (LIQUID  OUTDATED)" 

980  PRINT  "LIQIN" ; TAB( 10) ;" (LIQUID  INDATED)  " 

990  PRINT  "FZNOUM" ; TAB( 10); "(FROZEN,  OUTDATED,  MECHANICAL)" 

1O00  PRINT  "FZNINM"; TAB!  10); "(FROZEN,  INDATED,  MECHANICAL)" 

1010  PRINT  "FZNOUL"; TAB (10); "(FROZEN,  OUTDATED,  LIQUID  NITROGEN) 
1020  PRINT  "FZNINL" ; TAB( 10) ;" (FROZEN,  INDATED,  LIQUID  NITROGEN)" 
1030  PRINT  "NOT  FZN " ; TAB ( 1 0 ) J " ( NOT  FROZEN)" 

1040  PRINT 


1050 

1060 

1070 

1080 

1090 


PRINT 

LINPUT 

PRINT 

PRINT 

PRINT 


"KIND  OF  STORAGE  AND  CELL  AGE?" , Kind* 
PAGE 

"PIGPAA” ; TAB( 10) ; " (PIGPA  SOLUTION  A)" 


1  1  00 

PRINT 

"P I  GRAB"; TAB 

*:  lO); 

"  ( P  I  G 

PA  S 

GLUT  I  ON  B)" 

1110 

PRINT 

"PI GP AC " ; T  A  E 

(  i  o ) ; 

"  P  I  G 

FAC 

SOLUTION  O" 

1120 

PRINT 

"PI  PAR" ; TAB* 

i  o  > ; " 

‘FIFA 

*  NO 

GLUCOSE)  SOLUTION 

A)  " 

1  ISO 

PRINT 

"PI  PAD" ; TAB  * 

10.;" 

*  F  I  PA 

*  NO 

GLUCOSE)  SOLUTION 

B  )  " 

1  148 

PRINT 

"PIPAC " ; TAB* 

10.;  " 

(PI  PR 

‘  NO 

GLUCOSE)  SOLUTION 

C)  " 

1150 
1  160 


PRINT 

PRINT 


■FF'ES"  ;  TAB1  10 


FENWAL  REJUVENATION  SOLUTION)" 


’NR"; TAB* 10 >; " (NON-RE JUVENATED)" 


■  »V^nV.V*V7.'- V-V^.  -VY- .vV-.'.n'.vys'.v.v. 


DONOR 


1170  LI  NF'UT  "  RE JUVENAT  I  ON  SOLUT  I  ON  ? " ,  Rejimo  1  nf 
1180  PRINT  FACE 

1190  LINPUT  "51-  C  R  RADIATION  (  M I CROCUR I ES  )  ?  "  ,  Cr-5 1 * 

12O0  LINPUT  "125-1  RADIATION  (MI CROCUR I ES  >  ? " , 1125# 

1210  LINPUT  "111-INDIUM  RADIATION  (MI  CROCUR  I  ES  )  ?  "  ,  I  nd  i  urn  1 1 1  * 

1220  LINPUT  "DM30  CONCENTRATION  <?.)?".  Dm  =  oc  one  * 

1230  LINPUT  "RESIDUAL  DMSO  INFUSED  (MG)?" , Dmsoi nfused* 

1240  LINPUT  "AUTOTRANSFUSION  NUMBER?" , Autotransi 
1250  LINPUT  "SPECIAL  CODE  NO.?", Code* 

1260  PRINT 

1270  PRINT  "1-125" 

1230  PRINT  "PLT-REA" 

1290  PRINT  "RBC-REA" 

1300  PRINT  "WBC-REA" 

1310  PRINT  "IF  NONE.  ENTER  0" 

1320  LINPUT  "ANY  REACTIONS?" , React i ons* 

1330  PRINT  PAGE 
1340  PRINT 

1350  PRINT  "3/2-7-40"  ;  TABUS);  "(0.8/0. 2  pH  7  with  PHOSPHATES  ( 40mqL ) > " 

1360  PRINT  “  9/2-5-00  ";TABU5);M  <0.9/0. 2  pH  5  without  PHOSPHATES)" 

1370  PRINT  "9/2-5-40" ;  TAB<15)  J  “<0.9/0. 2  pH  5  with  PHOSPHATES  <40mg7.>)" 

1 380  PR  I  NT  "  9/2-5-88  "  ;  TAB  (  1  5  >  ;  "  <  0 . 9/0 .2  pH  5  with  PHOSPHATES  <  80r,.g?; )  )  " 

1390  PRINT  "9/2-6-80";  TABUS);  "<0.9/0. 2  pH  6  with  PHOSPHATES  <80n.gVO" 

1400  PRINT  "9/2-6. 5-40"  ;  TABUS)  <0. 9/0. 2  pH  6.5  with  PHOSPHATES  <40mg5O>“ 

1410  PRINT  "9/2-6. 8-40"  ;  TABUS)  ;  "<0.9/0. 2  pH  6.8  with  PHOSPHATES  <40mg?.)>“ 

1420  PRINT 
1430  PRINT 

1440  LINPIJT  "WASH  SOLUT  I  ON?  “  ,  W  ashso  1  n$ 

1450  PRINT  PAGE 

1460  PRINT  "PROC  ERR  (PROCESSING  ERROR )" J TAB < 40 );" CONT  UNIT  (CONTAMINATED  UNIT) 

li 

1470  PRINT  "REFZN  (UNIT  WAS  REFROZEN)  "  TAB  (  40 )  ;  "FEB  (PEDIATRIC  UNIT' 

1480  PRINT  "FZN  ERR  (FREEZING  ERROR )"; TAB ( 40 );" CARD  (CARDIOPLEGIA  UNIT)" 

1490  PRINT  "LOW  HCT  (HEMATOCRIT  TOO  LOW) " J TAB<40) ; "TRANS  (UNIT  SUBJECTED  r 

0  TRANSPORT)" 

1500  PRINT  "HIGH  HCT  ( HEMATOCRIT  TOO  H I GH ) " ; T AB ( 40 > ; " SHORT  DR  (SHORT  DRAW." 
1510  PRINT  "LOW  PUL  (PULSE  RATE  TOO  LOW > " ; T AB ( 40 ) ; " L I Q  WSH  (UNIT  WAS  LIQUID 
WASHED) " 

1520  PRINT  "HIGH  PUL  (PULSE  RATE  TOO  HIGH) " J TAB(40) ; "LOW  TEMP  (TEMP  TOO  LOW)" 
1530  PRINT  " IRR  PUL  (PULSE  RATE  IRREGULAR) " J TAB< 40) ; "HIGH  TEMP  (TEMP  TGn  HIGH) 

II 

1540  PRINT  "LOW  BP  (BLOOD  PRESSURE  TOO  LOW ) " ; TAB ( 40 > ; " PLT  ISO  (PLATELETS  IS 
OLATED  FROM  UNIT)" 

1550  PRINT  "HIGH  BP  (BLOOD  PRESSURE  TOO  HIGH) " ;  TAB<40>  5  "  VI TRO  WASH  (.UNIT  WASHtJ 
FOR  VITRO  USE)" 

1560  PRINT  "  WTHBF.W  (DONOR  VOLUNTARILY  WITHDREW)  "  J  TAB(40>  ;  "RJTDR  (DONOR  RE 

JECTED  FOR  UNIT  DRAW-" 

1570  PRINT  "ILL  -DONOR  WAS  ILL) " ; TAB<40) ; "ALC  IN  (DONOR  HAD  INGESTED  Ai 

COHOL)" 

1580  PRINT  "NO  SHOW  -DONOR  DID  NOT  APPEAR )"; TAB ( 40 >; " - 


1590  PRINT  " V 7 7 6  (UNIT  DRAWN  IN  nEW  PLASTIC  BAG  V776)" 

160O  PRINT  " A 7 7 2  -UNIT  DRAWN  IN  NEW  PLASTIC  BAG  A772)" 

1610  PRINT  "21  L 1 0  -LIQUID  STORED  FOR  21  DAYS  0  4deqC>" 

1620  PRINT  "35  LIO  -LIQUID  STORED  FOR  35  DAYS  0  4degC>" 

1630  PRINT  "POOR  FTW  -POOR  FREEZE-THAW-WASH  RECOVERY)" 

1640  PRINT  "72  HP  -UNIT  STORED  0  4degC  FOR  72  HOURS  POST  WASH-" 


s'  S  *> 


DONOR 


>.y\ 


to  < 


1650  PRINT  "NO-Yhr-  •  HO  SAMPLES  OBTAINED  AFTER  TIME  INDICATED) 
1 660  L I NPUT  " C OMMENT S? “ , C eminent I 1 
1 6 7 O  IF  LEN- Comment =  t  A2  THEN  1690 
16S0  GOTO  1720 

1690  D I S F  "COMMENT  TOO  LONG — TO  TRY  AGAIN,  PRESS  ' CONT  '  " 

1700  PAUSE 
1710  GOTO  1660 

1720  L INPUT  "MORE  COMMENTS?" , Comment s2* 

1730  IF  LEM v Comment *2$ >>12  THEN  1750 
1740  GOTO  1770 

1750  DISP  "COMMENT  TOO  LONG— TO  TRY  AGAIN,  PRESS  'CONT"" 

1760  GOTO  1720 
1770  PRINT  PAGE 
1780  PRINTER  IS  0 
1790  PRINT 
1800  PRINT 

1810  PRINT  "HERE  IS  THE  INFORMATION  YOU  ENTERED" 


= " N “  THEN  1850 

>;"NAME  OF  DONOR=  “ ; Fi r stname* ; SPA< 1 ) ; Lastn&mel 
SOCIAL  SECURITY  NUMBER. =  " ;Ss* 

) ; " DATE  OF  DONATION®  ";Date* 

; "METHOD  OF  COLLECTION®  " ; Method* 

; "TYPES  OF  CELLS  AND  STUDY®  Types* 

>; "BLOOD  VOLUME  DRAWN®  Volume*;"  MLS" 

OF  STORAGE  AND  CELL  AGE®  "JKind* 

; "REJUVENATION  SOLUTION®  " ; Re j uoso 1 n* 

;"51-CR  RADIATION®  " ; Cr51*; SPA<1 > ; "MICROCURIES" 
; "125-1  RADIATION®  “ ; 1 1 25* ; SPA (1 ) ; " M I CROCUR I ES " 
"111-INDIUM  RADIATION®  " ; Indi uml 1 1$; SPA< 1 > ; "MIC 
;"DMSO  CONCENTRATION®  " ; Dmsoc one  * ; " \ " 

"RESIDUAL  DMSO  INFUSED®  "  ;  Dmso  i  nf  used# ;  SPA  CO;" 
"AUTOTRANSFUSION  HO.®  “jAutotrans* 

; " SPEC  I AL  CODE  NO . =  " ; Code* 

; "REACTIONS®  React  ions* 

;"WASH  SOLUTION®  " ;Mashsoln* 

; "COMMENTS®  " ; Comment  e  * 

;”MORE  COMMENTS®  " ; Comment s2* 


■>X'. 

1820 

1830 

PRINT 

IF  Hewdonor* 

1840 

PRINT 

SPA-;  15 

1850 

PRINT 

SPA  -:  5 ) 

1 860 

PRINT 

SPA  < 12 

I*,*. 

1870 

PRINT 

SPA  < 8 ) 

ft* 

1880 

PRINT 

SPA-;  4) 

1890 

PRINT 

SPA  < 10 

1900 

PRINT 

"KIND 

1910 

PRINT 

SPA  •:  7 

1920 

1930 

1940 

1950 

I960 

1970 

1980 

1990 

2000 

2010 

202O 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2118 

2120 

2130 

2140 

2150 

2160 

2170 

2130 

2190 

2200 

2210 

2220 


SPA  <  1  3  > 
SPA  < 1 3  ) 
SPA  <  S  > ; 
SPA  <  1 0  ) 

spa  <  7  ) ; 

8  P  A  <  9  > ; 
SPA  < 1 2  > 
SPA  < 1 9  > 
SPA-;  15) 
SPA < 20) 
SPA-:  15) 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 

PRINTER  IS  16 
LI NPUT  "IS  THE 
DISP  "PLEASE 
IF  Correct*®"'/" 

IF  Correct *="N" 

IF  New don or*® " N 
IF  Hewdonor *= " Y 
E  =  1 

CREATE  File*, 2O0, 15 
ASSIGN  #1  TO  File* 

GOTO  2200 
ASSIGN  #1 
ON  END  #1 
READ  #1,5 
E  =  E+  1 

REM  CREATE  A  VIRTUAL  DONOR 
IF  Hewdonor*®" N"  THEN  2280 
IF  Hewdonor*® " Y "  THEN  2230 


CORRECT  I NFORMAT I  ON? 
WA  I  T  " 

Y"  THEN  2100 
THEN  1 30 


<Y'"N>  "  ,  Correct* 


THEN 

THEN 


:160 

:120 


TO 

GO': 

E 


File* 
•JB 


7  50 


FILE 


1R0CURIE 

MG" 


DONOR 


£230  PRIHT  #1.1; 3: I 
£240  PRINT  #1,£;M“ 

£250  IF  Me i,  doner *="N"  THEN  2280 
2260  PRINT  #  1 , 3 ;  F  l  r  s 1  r <  am  e # 

2270  PRINT  #1 ,4; Last name* 

22S0  PRINT  #1,5;E 
2290  PRINT  #1,6;"" 

2300  PRINT  #1,7:  '*  '■ 

2310  PRINT  #1,8;  ,,M 
2320  PRINT  #1,9;"" 

2330  PRINT  #1 , E*20; Date# 

2340  PRINT  #1 , E*20+l ; Dmsoi nf used# 

2350  PRINT  #l,E*20+£;Cr51* 

2360  PRINT  #1  ,E*20  +  3; 1 125* 

2370  PRINT  #1 , E*28+4; Indi uml 1 1# 

2380  PRINT  #1 , E*20+5; Method* 

2390  PRIHT  #1  ,E*20  +  6; Types* 

2400  PRINT  #1 , E*20+7; Ki nd* 

2410  PRIHT  #1 , E*20+8; Rejuvsoln* 

2420  PRINT  #l,E*20  +  9;Re act  ions* 

2430  PRINT  #1 , E*20+10; Aut otr ans# 

2440  PRINT  #1 , E*20+l 1 ; Code* 

2450  PRINT  #1 , E*20+12; Dmsoconc* 

2460  PRINT  # 1 , E*20+ 1 3; Washsol n* 

2470  PRINT  #1,E*20+14; Comments* 

2480  PRINT  #1,E*20+ 15; Volume* 

2490  PRINT  #1 , E*20+16; Comment s2* 

2500  PRINT  #1,E*20+17; "" 

2510  PRINT  #1 ,E*20+1S; "" 

2520  PRINT  #1,E*20+19; "" 

2536  REM  LIST  DONOR  IF  NEW  IN  REGIS 
2540  IF  Newdonor#="N“  THEN  2630 
2550  IF  Newdonor#="Y"  THEN  2560 
2560  fiSSIGN  #5  TO  "REGIS: F8" 

2570  READ  #5,1; P 

2580  P=P+1 

2590  PRINT  #5. 1 ;P 

2600  PRINT  #5,P+l;Ss*,Disk 

2610  PRINT 

2620  PRINT 

2630  PRINT  "END" 

2640  PRIHT 
2650  PRINT 

2660  L  INPUT  " ANOTHER  DONOR?  (Y/N) ",  Another! 
2670  IF  Anot her *=“ Y"  THEN  90 
2680  PRINT 
2690  PRINT  PAGE 

2700  DISP  "SELECT  ANY  PROGRAM" 

2710  MASS  STORAGE  IS  ":FS" 

2720  END 
2730  PRINT 
2740  PRINT 

2750  Records=E*30+40O 

2760  CREATE  " TEMP" , Rec or ds , 15 

2770  ASSIGN  #1  TO  File* 

2780  ASSIGN  #2  TO  "TEMP" 

2790  READ  #1, l;Aa* 

2800  READ  #l,3;Dd* 


27 


ts 


2810 
2820 
2830 
2840 
2850 
2880 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
31 10 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
320O 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 


DONOR 


READ  #1 , 4; Ddl* 

READ  # 1 . 5; Ee 
PRINT  #2,l;Aa* 

PRINT  #2,2; " " 

PRINT  #2,3;Dd$ 

PRINT  #2, 4; Bdlf 
PRINT  #2,5; Ee-1 
PRINT  #2,6;" “ 

PRINT  #2,7;"“ 

PRINT  #2,8;"" 

PRINT  #2,9;"“ 

FOR  1=1  TO  Ee-1 
El  =20*  I 

READ  # 1 , E 1 J  Mm* 

READ  #l,El+l;Nw* 

READ  # 1 , E 1 +2?  Kxt 
READ  #  l , E 1  +  3; 

READ  #l,El+4;Zz* 

READ  #l,El+5;Ff$ 

READ  # 1 , E 1 +6; Ggf 
READ  #1 , El+7; Hht 
READ  #1,E1+S; Ii* 

READ  #l,El+9;Pp5$ 

READ  #1 , El+10; Bb* 

READ  #l,El+il;Cc$ 

READ  #1, E 1+12; tow 1* 

READ  #1 , E 1 + 1 3; Wwashso 1 n$ 
READ  # 1 , El + 1 4; C comment 
READ  #  1 ,  E  1  +  15;  Vvo  1  unite# 

READ  # 1 , E 1 ♦ 1 6 ; Cc oument s2# 
PRINT  #2,El;M uit 
PRINT  #2,El+l;Ww# 

PRINT  #2, El+2; Xx# 

PRINT  #2 , E 1 +3; Yy# 

PRINT  #2, E 1 +4 ; Zz$ 

PRINT  #2,El+5;Fft 
PRINT  #2,El+6;Gg$ 

PRINT  #2, El +7; Hht 
PRINT  #2,El+8;Ii# 

PRINT  #2,  E  1  +9;  Pp>5$ 

PRINT  #2, El+10; Bb# 

PRINT  #2,El+li;Cc* 

PRINT  #2,E1+12; Wwl* 

PRINT  #2 ,  E  1  +  1  3 ;  Mwashso  t  r,$ 
PRINT  #2 ,  E  1  + 1 4 ;  Cc  outwent  s  * 
PRINT  #2 , E 1 + 1 5 ; Vug 1 unel 
PRINT  #2,  El  +  16;  Ccontment£2# 
PRINT  #2, El +17; 

PRINT  #2,  El +  18,*"" 

PRINT  #2, El +19;"" 

NEXT  I 

PRINT  #2, 5; E 
PRINT  #2, £*20; Dat  e# 

PRINT  #2,  E  +  20+1 ;  Dutsoi  nfusedt 
PRINT  #2 , E  +  20  +  2 ; C r 5 1 1 
PRINT  #2, E+2G+3; 1 125* 

PRINT  #2 , E  +  20  +  4 ; I nd i urn  1 1 1 T 
PRINT  #2, E+20+5; Method# 


’  a*  •'  *V  .V  *  V 


DONOR 


3390  PRINT  #2,E*20+6;Types* 

3-40O  PRINT  #2,E*20+7;l ind* 

3410  PRINT  #2, E+20+8; Re juusol nl 
3420  PRINT  #2 , E+20+9 ; Re  ac t 1 onsl 
3430  PRINT  #2, E*20+ 1 0; fiut  ot nans* 
3440  PRINT  #2,E*20+ll:Code* 

3450  PRINT  #2, E*20+12; Dmsoconc* 
3460  PRINT  #2, E*20+13; Washsol n* 
3470  PRINT  #2, £*20+14; Comments* 
3480  PRINT  #2, E*20+15; Volume* 
3490  PRINT  #2, E*20+ 16; Comment s2* 
3500  PRINT  #2, E+20+17; " “ 

3510  PRINT  #2, E+20+18; " “ 

3520  PRINT  #2, E*20+l 9;  "  " 

3538  PURGE  File* 

3540  RENAME  “TEMP"  TO  File* 

3550  GOTO  2610 


10  PRINTER  IS  16 
20  PRINT  PAGE 
30  PRINT  "BLISS" 

40  PRINT 

50  PRINT  "PROGRAM  LIST" 

60  PRINT 
70  PRINT 

80  MASS  STORAGE  IS  ":F3,1" 

90  L  INPUT  "SOCIAL  SECURITY  NO.?“,Ss* 

100  IF  Ss$£4; 1 K  THEN  140 

110  IF  Ss*C 7; 1 ]<>"-"  THEN  140 
120  IF  LENCSs* >  >11  THEN  140 
130  GOTO  170 

140  DISP  "INCORRECT  SS4--T0  TRY  AGAIN  PRESS  'CONT'" 

150  PAUSE 
160  GOTO  90 

170  DISP  "PLEASE  WAIT" 

180  0*=Ss*C5,6] 

190  P*=Ss*C8, 1 1 3 
200  F i  1  e*=Q*8cP* 

210  ASSIGN  #5  TO  "REGIS: F8" 

220  READ  #5, l;P 
230  FOR  I=P+1  TO  2  STEP  -1 
240  READ  #5, I ; Sal*, Disk 
250  IF  Ssl*=Ss*  THEN  290 
260  NEXT  I 

270  IF  SillOSsI  THEN  PRINT  "DONOR  NOT  FOUND" 

280  GOTO  1670 

290  DISP  "INSERT  DISK  NO.  :  “  ;  Di  *1; ;  "  PRESS  'CONT '  " 

300  PAUSE 

310  ASSIGN  #3  TO  "Number" 

320  READ  #3, 1 ; Number , Di sktype* 

330  IF  Disk* ype*<  > "M"  THEN  358 
340  IF  Disk=Number  THEN  380 

350  DISP  "WRONG  DISK,  INSERT  NO. : “ ; Di sk : "  PRESS  'CONT'" 

360  PAUSE 

370  GOTO  310 

380  ASSIGN  #1  TO  File* 

390  READ  #1,5JE 

408  L INPUT  "DO  YOU  WANT  A  PRINTED  COPY?  <Y/N> " , Hardcopy* 
410  IF  Hardcopy#="N"  THEN  458 
420  IF  Hardcopy *=“Y"  THEN  440 

438  IF  < H ar d c o p y * <  > " N "  >  A N D  < H ar  d c o p * <  > " Y "  >  THEN  400 
440  PRINTER  IS  0 

450  L INPUT  "DO  YOU  WANT  ALL  DONATIONS  LISTED?  (Y/N)",AII* 
460  GOTO  480 

47©  LINPUT  "ALL  DONATIONS  LISTED?  < Y  N > " , A 1 1  * 

480  IF  A 1  1  *  =  '","  THEN  650 
490  IF  A 1 1 *= "M"  THEN  50O 
508  PRINT 
510  PRINT 

520  PRINT  "DONATION  DATES:" 

538  PRINT 

540  FOR  1=1  TO  E 


550 

560 

570 

588 


E2=20*I 

READ  #1 , E2; Date* 

PRINT 

PR  I NT  D  at « * , " DONAT  I ON  NO . 


I 


it  * 


590  NEXT  I 
600  PRINT 
610  PRINT 

620  INPUT  "WHICH  DONATION  NUMBER  DO  YOU  WANT  FIRST?", T 

630  T 1 =T +20 

640  GOTO  1130 

650  PRINT 

660  PRINT 

670  READ  #l,i;Ss* 

680  READ  # 1 , 3; Fi rst n  ame  * 

690  READ  #  1 , 4  ;  Last  name# 

70O  READ  #1 , 5; E 

710  PRINT  SPA C 9 >; "SOCIAL  SECURITY  NO.:  "  ;Ss* 

720  PRINT  SPAC 24) ; "NAME:  ";  F i rst name* ; SPA C 1 ); Last  name* 

730  PRINT  SPAC 12); "NO.  OF  DONATIONS:  "  ;  E 

740  PRINT  SPA<24); "DISK:  ";Disk 

750  PRINT 

760  PRINT 

770  FOR  J=1  TO  E 

780  E 1  =  2  0  *  J 

790  READ  #1, El; Date* 

8O0  READ  #1 , El+10; Autotrans* 

810  READ  «1, El +11; Code# 

820  READ  #1 , El+12; Dmsoconc* 

830  READ  #l,El+l; Dmso inf used# 

840  READ  # 1 , El +2; Cr5 1  * 

850  READ  #1 ,El+3; 1125* 

860  READ  #1, El +4; Indium  111# 

870  READ  #1 , El+5; Method# 

880  READ  #1 ,E 1+6; Type* 

890  READ  #1 ,  E 1  +7;  K i  rid* 

9O0  READ  # 1 , El +8; Rejuvso 1 n* 

910  READ  #l,El+9;Re actions* 

920  READ  #1 , El +1 3; Washso 1 n* 

930  READ  #1 , El +14; Comment s* 

940  READ  #1,E1+15; Volume* 

950  READ  #1 , El+16; Comments2# 

960  PRINT 

970  PRINT 

980  PRINT  SPA< 16); "DONATION  NO.:  ";J 
990  PRINT  SPA C 24 >; "DATE:  " ; Date* 

1000  PRINT  SPAC8); "METHOD  OF  COLLECTION:  "jMethod* 

1010  PRINT  SPA(4); "TYPES  OF  CELLS  AND  STUDY:  " ; Type* 

1020  PRINT  SPA'.  10);  "BLOOD  VOLUME  DRAWN:  ";  Volume*;"  MLS" 
1030  PRINT  “KIND  OF  STORAGE  AND  CELL  AGE:  " ;Kind# 

104O  PRINT  SPAC7); "REJUVENATION  SOLUTION:  "jRejuvsoln* 

105O  PRINT  SPA- 23)5 "51 -CR:  ";Cr51*;"  MICROCURIES" 

1060  PRINT  SPAC23); "125-1:  ";I125*;"  MICROCURIES" 

107O  PRINT  SPAC 18) ; " 1 1 1 -INDIUM:  " ; I nd i urn 1 1 1  * ; "  MICROCURIES 
1080  PRINT  SPAC  10)  ;  "DMSO  CONCENTRATION:  " ; Dmsoc one # ; " M " 
1090  PRINT  SPAC7); "RESIDUAL  DMSO  INFUSED:  ";  Dmso i nf used* ;  " 

1100  PRINT  SPA-9:- ;  "  AUTOTRANSFUS I  OIK  NO.  :  ";  Autotrans* 

1110  PRINT  SPA- (12) ; "SPECIAL  CODE  NO.:  ";Code* 

1120  PRINT  SPAC  19);  "REACTIONS:  ".'Reactions# 

1130  PR  I  NT  SPAC  15.;;  '  WASH  SOLUT I  ON :  "  ;  Washso  1  n* 

1140  PRINT  SPAC20); "COMMENTS:  Comments* 

1150  PRINT  SPAC 15) 5 "MORE  COMMENTS:  "; Comment s2# 

1160  NEXT  J 


1170  GOTO  1670 

USO  PRINT 

1190  PRINT 

1200  READ  #1.1; 5il 

1210  READ  #  1  ,  3 ;  F  l  c  s  *  n  an.  e  ! 

1220  READ  #1  ,  4  J  L  ai  t  n  ame  ! 

1230  READ  #1 , T1 ; Date! 

1240  READ  #1 , Tl+10;ftutotrans* 

1250  READ  #1 , Tl+11 ;Code! 

1260  REFlD  #1  ,  Tl  +  12;  Dm*. scone! 

1270  REFlD  #1 , Tl+1 ;Dm*oinfu*ed! 

1280  READ  #  1 ,  T 1  +  2 ;  Cr5  1 ! 

1290  RERD  #1 , T1 +3; I  125! 

1300  RERD  #1 , Tl+4; Indiuml i 1! 

1310  RERD  #1 , T 1+5; Method! 

1320  RERD  #  1  ,  T  1  +  6  ;  T  y  p  e  ! 

1330  RERD  #1 , Tl+7; ki nd! 

1340  RERD  #  1 ,  T  1  +  8 ;  R  e  j  u v s o  1  ri ! 

1350  READ  #1,T 1+9; React  ion*! 

1360  READ  #  1 ,  T 1  + 1 3 ;  Washes  1  re! 

1370  READ  #1 , T1 +14; Comment*! 

1380  RERD  #1,T 1+15; Volume! 

1390  RERD  #  1  ,  T  1  +  1  6 ; Comment *2! 

1 400  PR  I  NT  3 P R  (.  24  :■ ;  "  NAME :  "  ;  F  i  rs  t  name! ;  SPfl<  1 ) ;  Last  name! 

1410  PRINT  SPAC9); "SOCIAL  SECURITY  NO.:  "|Ss$ 

1420  PRINT  SPflt 24>; “DISK:  ";Disk 
1430  PRINT  SPA' 24' ; "DATE:  "  ;Date! 

1440  PRINT  SPA',  16,' ;  "DONATION  NO.:  ";T 

1450  PRINT  SFA<8>; "METHOD  OF  COLLECTION:  " ; Method! 

1460  PRINT  SPR<4> ; "TYPES  OF  CELLS  AND  STUDY:  " ; Type! 

1470  PRINT  SPA  <  10  "FLOOD  VOLUME  DRAWN :  Volume!;”  MLS" 

1480  PRINT  "KIND  OF  STORAGE  AND  CELL  AGE:  ":Kind! 

1490  PRINT  SPAT  7.-;  "REJUVENATION  SOLUTION:  "jRejuvsoln! 
1500  PRINT  SPA'.  2  3  ';  "51 -CP:  ";Cr51!;"  MICROCURIES" 

1510  PRINT  SPA' 23'; "125-  I:  "; 1125!; "  MICROCURIES" 

1520  PRINT  SF'R<.  18  1  1  1 -INDIUM:  ";  Indiuml  1 1!J  "  MICROCURIE 

1530  PRINT  SR  Ac  lO*:  "  DM  SCi  CONCENTRATION:  "  ;  Dmsoc  one!; 

1540  PRINT  SPA'' 7  >;  “RESIDUAL  I'HSO  INFUSED:  "  ;  Dm  so  i  nf  us  e  d! ; 
1550  PRINT  SPA-:  .9  - ;  "AUTO  TRANSFUSION  NO.:  "jAutotran*! 

1560  PRINT  SPA< 12> ; "SPECIAL  CODE  NO.:  ";Code! 

1570  PRINT  SPA< 19); "REACTIONS:  "; React  ion*! 

1580  PRINT  SR  AC  15.*;  "WASH  SOLUTION:  ";Wa*h*oIn! 

159©  PRINT  SPA' 20 <; "COMMENTS:  "; Comment*! 

1600  PRINT  SPA'  15  ■; "MORE  COMMENTS:  "; Comment  *2! 

1610  PRINT 
1620  PRINT 

1630  input  "which  dour r  i on  ne::t *•  o  for  none" ,t 

1640  IF  T -O  THEN  1670 

1650  T 1 =  T  *  2 0 

1660  GOTO  1180 

1670  PRINT 

1680  PRINT 

1690  PRINT  "END" 

1700  I  INPUT  "ANATHLP  Du  NOP  '•  •  Y  N  •  "  .  Ar.  .'Mv.rf 


SOCIAL 


10  PRINTER  IS  16 

20  PRINT  PAGE 

30  PRINT  "BLISS" 

40  PRINT 

50  PRINT  "PROGRAM  SOCIAL" 

60  PRINT 

70  PRINT 

80  MASS  STORAGE  IS  “:F3" 

90  PRINT 

100  PRINT 

110  INPUT  "DO  YOU  WANT  A  PRINTED  COPY?  < Y/N > " , Har dc opy$ 

120  IF  Hardcopy#="N"  THEN  140 

130  IF  Hardcopy$="Y"  THEN  PRINTER  IS  0 

140  ASSIGN  #5  TO  "REGIS" 

150  READ  #5, 1JP 

160  PRINT  "NO.  OF  DONORS:  " ; P 

170  PRINT 

171  INPUT  "START  WITH  WHICH  DISK?“,Diskk 

180  PRINT  "SOC.  SEC.  NO.:" 

190  PRINT 

200  FOR  I*<Biskk-l>*50+2  TO  P+1 
210  READ  #5,1?  Ss$, Di sk 

220  PRINT  Ss*;SPA<5); "DISK" ; SPA<1 > ; Di sk 

230  NEXT  I 

240  PRINT 

250  PRINT 

260  PRINT 

270  PRINT  "END" 

280  PRINTER  IS  16 

290  PRINT  PAGE 

308  DISP  "SELECT  ANY  PROGRAM- 

310  END 


SELECT 


ID  PRINTER  IS  16 
2D  PRINT  PAGE 
30  PRINT  "BLISS" 

40  PRINT 

50  PRINT  "PROGRAM  SELECT" 

60  PRINT 
70  PRINT 
80  PRINT 

90  DIM  Z*£24],R8*C241 
100  Q*="0" 

110  PRINT  " V776 " ; TAB ( 1 O ) ; "(Cl TR ATE -PHOSPHATE  DEXTROSE— NEW  PLASTIC  V77 
120  PRINT  "  A772"  ;  TAB<  10>  ;  "  C CITRATE -PHOSPHATE  DEXTROSE-NEW  PLASTIC  A77 
130  PRINT  "V1035" ;TAB(  1©) ;" (CITRATE-PHOSPHATE  DEXTROSE --NEW  PLASTIC  VI 
140  PRINT  “CPD" ; TAB< 10>'J " <CITRATE-PHOSPHATE  DEXTROSE--STANDARD  COLLECTION  BA 
150  PRINT  "ACD“;TAB( 10); " <ACID  CITRATE  DEXTROSE) " 

160  PRINT  " CPDA1";TAB<10>;“ <CI TR ATE -PHOSPHATE  DEXTROSE-ADENINE  1)" 

170  PRINT  " CPD A2"; TAB <10 (CITRATE-PHOSPHATE  DEXTROSE-ADENINE  2>" 

180  PRINT  "CPDA3";TAB<10>;" (CITRATE-PHOSPHATE  DEXTROSE-ADENINE  3)" 

190  PRINT  "HEP";TAB(10>; "(HEPARIN)" 

200  PRINT  "RCPD";TAB(10>; "(1  UNIT  RBC  RETURNED;  CPD)" 

210  PRINT  "RACD" JTAB(10); "(1  UNIT  RBC  RETURNED;  ACD>” 

220  PRINT  "2  RCPD";TAB(10); " (2  UNITS  RBC  RETURNED;  CPD)" 

230  PRINT  "2  RACD";TAB(10); "(2  UNITS  RBC  RETURNED;  ACD>" 

240  PRINT  "RCPDA 1 " ; TAB  < 1 0) ; " (RBC  RETURNED  CPDA1 ) " 

250  PRINT  "RCPDA2" ; TAB( 10); "(RBC  RETURNED  CPDA2) “ 

260  PRINT  "RCPDA3" ; TAB( 10) ; " (RBC  RETURNED  CPDA3 ) " 

270  PRINT  "ADL";TAB<10); "(PHERESIS)" 

280  PRINT  "  IBM ";TAB(10>; "(PHERESIS)" 

290  PRINT  "FENWAL";TAB( 10); "(PHERESIS)" 

300  PRINT  "OTHER";TAB(10); "(MISCELLANEOUS)" 

310  LINPUT  "METHOD  OF  COLLECTION  (0  IF  NOT  INTERESTED) ", F3* 

320  IF  F3*»"0"  THEN  350 
330  Z*=F3$ 

340  GOTO  370 
350  Z*»Q* 

360  P4*=Q* 

370  PRINT  PAGE 

380  PRINT  "RBCTX" ; TAB( 10) ; " (RED  CELL  TRANSFUSION  -  80  ML)" 

390  PRINT  "RBCDR";TAB(10>; "(RED  CELL  UNIT  DRAW  -  450  ML)" 

400  PRINT  "PLTTX" ; TAB < 10) ; “ (PLATELET  TRANSFUSION  -  80  ML)" 

410  PRINT  "PLTDR";TAB<10V,  "(PLATELET  DRAW  -  12  ML)" 

420  PRINT  "WBCTX“;TAB( 10); "(WHITE  BLOOD  CELL  TRANSFUSION  -  80  ML)" 

430  PRINT  "WBCDR";TAB(10); "(WHITE  BLOOD  CELL  DRAW  -  12  ML)" 

440  PRINT  "SSAMP” ; TAB( 1 0) ; ” < 1 -50  ML  SAMPLE  -  50>" 

450  PRINT  "LSAMP" ;  TABUO) ;  "(GREATER  THAN  50  ML  SAMPLE  -  100)" 

460  PRINT  "EYE";  TABUO);  "(EYE  EXAM)" 

470  PRINT  "BONEMM;TABU0>;  "(BONE  MARROW  -  75  ML)" 

480  PRINT  "PBSTEM" ;  TABU0) ;"  (PERIPHERAL  BLOOD  STEM  CELLS  -  50  ML)" 

490  PRINT  "NEOCTX"; TAB< 10) ; "(NEOCYTES  TRANSFUSION  -  120  ML)" 

500  PRINT  " NEOCDR " ; TAB < 1 0 ) ; " ( HEOCYTE  DRAW  -  450  ML)" 

510  LINPUT  “TYPES  OF  CELLS  &  STUDY?  (0  IF  NOT  INTERESTED )",G3* 

520  IF  G3T ="0"  THEN  550 
530  Z4 =Z*&G3f 
540  GOTO  578 
550  Z#  =  Z#*<G# 

560  P5*=Q» 

570  PRINT  PAGE 

580  PRINT  "LIGOU";TABU0>;  "(LIQUID  OUTDATED)" 


•Q  OJ 


vV-V 


38 


SELECT 


590  PRINT  "LIQIN"{TAB(10>{ "(LIQUID  I HDATED >  “ 

600  PRINT  "FZNOUM" ;TftE(19); "(FROZEN,  OUTDATED,  MECHAN I  CAL > “ 

610  PRINT  "F2NINM" ; TAB< 10> ; " (FROZEN,  INDATED,  MECHANICAL)" 

620  PRINT  "FZNOUL" { TAB< 10) } " (FROZEN,  OUTDATED,  LIQUID  NITROGEN)" 

630  PRINT  ”FZN INL " ; TAB< 10 > ; “ (FROZEN,  INDATED,  LIQUID  NITROGEN)" 

640  PRINT  "NOT  FZN" ; TAB< 10) ; " (NOT  FROZEN)” 

650  LINPUT  "KIND  OF  CELLS  X  STORAGE  AGE?  <0  IF  NOT  INTERESTED) “ , H3* 
660  IF  H3*="0"  THEN  690 
670  Z*=Z*«. H3* 

680  GOTO  710 
690  Z*=Z*« <Q* 

700  P6*=Q* 

710  PRINT  PAGE 

720  PRINT  "PIGPAA";TAB(10>{ "(PIGPA  SOLUTION  A)" 

730  PRINT  ”PIGPAB",‘TAB(  10);  "(PIGPA  SOLUTION  B>" 

740  PRINT  "PIGPAC"; TAB< 10); "(PIGPAC  SOLUTION  C)“ 

750  PRINT  “PIPAA";TAB(10); "(PIPA  (NO  GLUCOSE)  SOLUTION  A)" 

760  PRINT  "PIPAB" ; TAB< 10) ; " (PIPA  (NO  GLUCOSE)  SOLUTION  B>" 

770  PRINT  "PIPAC" ; TAB( 10) ; " (PIPA  (NO  GLUCOSE)  SOLUTION  C>" 

780  PRINT  "FRES" ;TAB(10>; "(FENWAL  REJUVENATION  SOLUTION)" 

790  PRINT  "NR"; TAB(IQ); " (NON-RE JUVENATED) " 

800  LINPUT  “REJUVENATION  SOLUTION?  (0  IF  NOT  INTERESTED) ",  13* 

810  IF  1 3*= " 0 “  THEN  840 
820  Z*  =  Z*U3* 

830  GOTO  890 
840  Z*SZ*&Q* 

850  P ?*=£>* 

860  PRINT 
870  PRINT 
880  PRINT 

890  LINPUT  "DO  YOU  WANT  A  PRINTED  COPY?  (  Y-'N)  "  ,  Hardc opy* 

908  IF  Har dcopy*=“N"  THEN  PRINT  PAGE 
910  IF  Hardcopy*="N"  THEN  930 
920  PRINTER  IS  0 

930  PRINT  L I N ( 3 )  ,*  " - " 

940  PRINT  "COMBINATION:" 

950  PRINT  " - " 

960  PRINT 
970  PRINT  F3# 

980  PRINT  G3* 

990  PRINT  H3* 

1000  PRINT  13* 


1010  PRINT 
1020  PRINT 

1030  DISP  "INSERT  ANY  MAIN  DISK,  PRESS  'CONT'." 
1040  PAUSE 
1050  C *0 

1060  ASSIGN  #3  TO  "Number : F8, 1 " 

1070  READ  #3, l; Number 
1080  PRINT 

1090  PRINT  "DONATIONS  MEETING  ABOVE  COMBINATION" 
1100  PRINT  "ON  DISK  *  "{Number 

1110  PRINT  " - " 

1120  PRINT 
1130  PRINT 

1140  MASS  STORAGE  IS  ":F8,1" 

1150  ASSIGN  #5  TO  "REGIS:F3" 

1160  OH  END  #5  GOTO  1250 


SELECT 


1170  FOR  R=< Number- 1) *50+2  TO  Number *50+1 
1180  READ  *5.R;Ss* 

1190  0*a$s*C5, 61 

1200  P*=Ss*C8,ll] 

1210  File*=0**<P* 

1220  ASSIGN  #1  TO  File* 

1230  GOSUB  1470 

1240  NEXT  R 

1250  OFF  END  #5 

1260  IF  C>0  THEN  1328 

1270  PRINT 

1280  PRINT  "NONE" 

1290  PRINT 
1300  PRINT 
1310  PRINT  "END" 

1320  LINPUT  "SAME  COMBINATION  ON  ANOTHER  DISK?  <  Y^N> 11 ,  Samecombo* 
1330  IF  Samecombo*®" Y"  THEN  1830 

1340  LINPUT  "ANOTHER  COMBINATION?  <Y/N> ",  Another* 

1350  PRINT 
1360  PRINT 
1370  PRINT  "END" 

1380  PRINTER  IS  16 

1390  PRINT  PAGE 

1400  IF  Another*="Y"  THEN  100 

1410  PRINT 

1420  MASS  STORAGE  IS  ":F8" 

1430  PRINT 
1440  PRINT  PAGE 

1450  DISP  "SELECT  ANY  COMBINATION" 

1460  END 

1470  READ  «1,5;E 

1480  FOR  R2-1  TO  E 

1490  R3*R2*20 

1500  READ  #l,R3+5; Method* 

1510  IF  Method*<  >F 3*  THEN  Method*="0” 

1520  P4*=TRIM*<Method*> 

1530  READ  #l,R3+6; Types* 

1540  IF  T ypes*<  >G3*  THEN  Types*="0" 

1550  P5*=TRIM*<Types*> 

1560  READ  #1 ,  R3+7;  K.  i  nd* 

1570  IF  K i nd*<  >H3*  THEN  Kind*®"©" 

1580  P6*=TRIM*<Kind*> 

1590  READ  #1 , R3+8; Re.juusol n* 

1608  IF  Re juuso 1 n*< > 1 3*  THEN  Re juusol n*®"0" 

1610  P7*  =  TR I M* ( Re  juvso 1 n*  > 

1620  R8*®P4*S<P5*S<P6*&.P7* 

1630  IF  R8*=Z*  THEN  1668 
1640  NEXT  R2 
1650  RETURN 
1660  READ  #1 , 1 J Ss* 

1670  READ  #1 , 3; Fi rstname* 

1680  READ  #1 , 4; Lastname* 

1690  READ  *1 , R3; Date* 

1700  IF  Ss*®Ssl*  THEN  1760 
1710  PRINT 
1720  PRINT 


> 


•r*  *»*•*.*  .»  •  *  .  *  •*  .  ■»•.•••  •  ■  v*  4  r ,•.»•**  .  '«*  .  •  .  1  ,  "  a  *  -  Pa 


SELECT 


1730  PRINT 

1740  PRINT  "SOCIAL  SECURITY  NO.:  ";Ss* 

1750  PRINT  SPA< 15) 5 "NAME:  "  ;  F  i  r*t  n»«i€  * ;  SPAO  >  J  L«t  n*iu*$ 
1760  PRINT  SPA(6); "DONATION  DATE:  “jDate* 

1770  SiU*Si» 

1780  C*C+1 
1790  GOTO  1640 


ALERT 


10  PRINTER  IS  16 
20  PRINT  PAGE 
30  PRINT  "BLISS" 

40  PRINT 

50  PRINT  "PROGRAM  ALERT" 

60  PRINT 
70  PRINT 
80  PRINT 

90  MASS  STORAGE  IS  ":F8,1" 

100  PRINTER  IS  16 
110  PRINT 

120  L INPUT  "DO  YOU  WANT  A  PRINTED  COPY?  (Y/H) ",  Hardcopy# 
130  LINPUT  "SOCIAL  SECURITY  NO.?",Ss# 

140  DISP  "PLEASE  WAIT" 

150  0#*Ss#C5, 61 
160  P#*Ss#C8, 1 II 
170  Fi  le#*0#*.P# 

180  ASSIGN  #5  TO  "REGIS: FS" 

190  READ  #5, 1 ; P 
200  FOR  I-P+l  TO  2  STEP  -1 
210  READ  *5, l;Ssl#,Disk 
220  IF  Ss 1 #*Ss#  THEN  260 
230  NEXT  I 

240  IF  SslROSs#  THEN  PRINT  "DONOR  NOT  FOUND" 

250  GOTO  2170 

260  DISP  "INSERT  DISK  NO.:"; Disk;"  PRESS  'CONT'“ 

270  PAUSE 

280  ASSIGN  #3  TO  "Number" 


290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 


READ  #3, 1 ; Number , Di sktype# 

IF  Di sk lyp*#<  >"M"  THEN  330 
IF  Di sk=Number  THEN  360 
PRINT 

DISP  "WRONG  DISK,  INSERT  NO. 
PAUSE 


Disk;  "PRESS  'CONT' 


IS  INVALID--PRESS  'STOP''  AND  'RUN'  TO  START  OVER" 


GOTO  280 
PRINT 
PRINT 
GOTO  410 
DISP  "DATE 
PAUSE 

LINPUT  "TODAY'S  DATE  ( MM-DD-YY ) " , Tod aysd at e$ 
PRINT 

"RBCTX" ;  TABr;  10) 

"RBCDR" ;  TAB>;  lO> 

"PLTTX" ; TAB- 10) 

"pltdr,,;tab<'10) 

"PLTDRPRP";TAB<10>; 

"pltdrppp";tab<:i0>; 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PR  I  NT 


1  (RED  CELL 
’ <R£D  CELL 
1  (PLATELET 
(PLATELET 
1  (PLATELET 
'(PLATELET 


TRANSFUSION?  " 

UNIT  DRAW)” 
TRANSFUSION)" 

DRAW)" 

DRAW-PLATELET  RICH 
DRAW-PLATELET  POOR 
CELL  TRANSFUSION)" 
CELL  DRAW)" 


PLASMA) 

PLASMA) 


"WBCTX";TAB(10>; "(WHITE  BLOOD 
"WBCDR";TAB<10); "(WHITE  BLOOD 
•‘S3AMP";  TAB(10>;  "(1-50  ML  SAMPLE)" 

"LSAMP" ; TAB( 10) ; " (GREATER  THAN  50  ML  SAMPLE)" 
“EYE"; TAB(10>; "(EYE  EXAM)” 

"BONEM"; TAB( 10) ; " (BONE  MARROW) “ 

"PBSTEM" ;TAB( 10) ; "(PERIPHERAL  BLOOD  STEM  CELLS) 
"NEOCTX"; TAB( 10) ; " (NEOCYTES  TRANSFUSION)" 
"NEOCDR"; TAB( 10) ; "(NEOCYTE  DRAW)" 


43 


590  LINPUT  "WHAT  TYPE  OF  STUDY  DO  YOU  INTEND  TO  DO?" , Studytype* 

600  INPUT  “VOLUME  OF  BLOOD  YOU  INTEND  TO  DRAW? " ,  St udyvo  1  unit 

610  IF  Hardcopy*«"N"  THEN  630 

620  PRINTER  IS  0 

630  ASSIGN  «1  TO  Fi  le* 

640  PRINT 

650  READ  #1 , 3; Fi rstname*  - 
660  READ  #1 , 4;  Lastname* 

678  PRINT  SPA<11>; "DONOR  NAME:  F  i  rst  name# ;  SPA<1 );  Last  name# 

680  PRINT  SPA<2>; "SOCIAL  SECURITY  NO.:  ";Ss* 

690  PRINT  SPA<9>; "TODAY'S  DATE:  "; Today sdat e* 

700  PRINT  SPA<8); "STUDY  PLANNED:  ";Studytype* 

710  PRINT  SPA<3>; "VOLUME  TO  BE  DRAWN:  Studyool  urn*;  "ML” 

720  PRINT  L I N < 2 ) ;  “ - •- - 

730  PRINT  "RADIOACTIVITY  AND  DMSO  DATA" 

740  PRINT  " - 

750  PRINT 

760  READ  ftl , 5; E 

770  Pass-0 

780  FOR  B4-1  TO  E 

790  E1»20*B4 

800  READ  #1 , El ; Date* 

810  READ  #  1 ,  El  +  12;  Dmsocortc  * 

820  READ  # 1 , E 1 + 1 ; Dmso i nf used* 

830  READ  # 1 , E 1 +2; Cr  5 1  * 

840  READ  #l,El+3; 1125* 

850  READ  #l,El+4;  Indiumlll* 

860  IF  Dmsoconc*<>"0“  THEN  920 

870  IF  Dmso  i  rtf  uscd*<  >"0"  THEN  920 

880  IF  Cr51*<  >"0"  THEN  920 

890  IF  I 125*< >"0M  THEN  920 

900  IF  Irtd  i um 1 1 1 *<  > "0"  THEN  920 

910  GOTO  1000 

920  PRINT  SPA<17>;"DATE:  " ; Dale* 

930  PRINT  SPA<3)  ;  "DMSO  CONCENTRATION:  Dmsocortc*;  "V 

940  PRINT  “RESIDUAL  DMSO  INFUSED:  "; Dmso i nf used*; SPAU > ; " MG" 

950  PRINT  SPA< 16>; "51-CR:  " ; Cr5 1  * ; SPA< 1 > ; "MICROCUR I ES" 

960  PRINT  SPA<16); “125-1:  " ; 1125*; SPA< 1 > ; "MICROCURIES" 

970  PRINT  SPA<11>; "111-INDIUM:  " ; I ndi urn 1 1 1  * ; SPA< 1 > ; "M ICROCUR IES " 
980  Pass«Pass+l 

990  PRINT 

1000  NEXT  B4 

1010  IF  Pass-0  THEN  PRINT  SPA<5> ; "NONE" 

1020  IF  Pass-0  THEN  PRINT  LIN<2> 

1030  PRINT  " - 

1040  PRINT  "REACTIONS  ALERT" 

1050  PRINT  " - 

1060  PRINT 
1070  R«0 

1080  FOR  B5= 1  TO  E 
109O  E2-20*B5 

1100  READ  #l,E2-*-9;  React  ions* 

1110  IF  React  ions*- "0“  THEN  1 1 70 
1120  R-R+ 1 

1130  PRINT  SPA< 13); "REACTION:  "{Reactions* 

1140  READ  #1 , E2; Date* 

1150  PRINT  SPA<17>; "DATE:  ";Date* 

1160  PRINT 


ALERT 


1170  NEXT  B5 

1130  IF  R*0  THEN  PRINT  SPA<5> ; "NONE" 

1190  IF  R=0  THEN  PRINT 
1200  DISP  "PLEASE  WAIT" 

1210  REM  TODAYS  DATE  IS  TERM.  DATE 

1220  GOSUB  2250 

1230  Lifetime*©  •  * 

1240  F3*0 

1250  FOR  Bo* 1  TO  E 

1260  E3*B6*20 

1270  READ  #l,E3+6; Types# 

1280  IF  Types#="RBCTX"  THEN  1320 
1290  IF  Types#* “PL TTX "  THEN  1320 
1300  IF  Types#* "WBCTX"  THEN  1320 
1310  GOTO  1450 
1320  Li f et i mc*L i f et i me+ 1 

1330  READ  #l,E3;Date# 

1340  GOSUB  2320 

1350  GOSUB  2390 

1360  IF  Z>90  THEN  1450 

1370  IF  2<  =90  THEN  1380 

1380  PRINT  " - 

1390  PRINT  “RADIOACTIVITY  ALERT" 

1400  PRINT  " - 

1410  PRINT 

1420  PRINT  SPA<5>; "STOP — DO  NOT  USE  THIS  DONOR" 

1430  PRINT  SPA<5>;  Types#;  "—PERFORMED  WITHIN  THE  LAST  90  DAYS" 

1440  PRINT 

1450  NEXT  B6 

1460  IF  Li f  et i me<  =4  THEN  1530 

1470  PRINT  " - 

1480  PRINT  "LIFETIME  RADIOACTIVITY  ALERT" 

1490  PRINT  " - 

1500  PRINT 

1510  PRINT  SPA<5>;  "STOP— DO  NOT  USE  THIS  DONOR" 

1520  PRINT  SPA<5>; "DONOR  WILL  EXCEED  5  STUDIES  INVOLVING  RADIATION 
1530  REM  BLOOD  VOLUME  ALERT 
1540  F3=0 
1550  F2=0 

1560  PRINT  L I H <  1  > ; " - 

1570  PRINT  "BLOOD  VOLUME  ALERT" 

1580  PRINT  " - 

1590  Vol umeal ert =0 
1600  Volume#*"©" 

1610  FOR  B7* 1  TO  E 

1620  E4*20*B7 

1630  READ  #1 , E4; Date# 

1640  READ  #1,E4+ 15; Volume# 

1650  READ  #l,E4+6; Types# 

1660  IF  Types#*" PL TBRPRP"  THEN  1750 

1670  IF  Types#*" PL TDRPPP"  THEN  1750 

1680  GOSUB  2320 

1690  GOSUB  2390 

170O  IF  2 >*3 1  THEN  1730 

1710  IF  Types#="PLTDP"  THEN  F3=F3+1 

1720  IF  Types#*"WBCDP"  THEN  F3=F3+1 

1730  IF  Z >60  THEN  1750 

1740  IF  2<*60  THEN  Vo  1 umeal tr t *Vo 1 umeal ert +VAL < Vo  1 ume# > 


ALERT 


1750  NEXT  B7 

1760  IF  Vo  I  umeal  ert +St  udytso  I  uaie  >588  THEN  1340 
1770  IF  Volumealert +  St  udyvo  1  un.e<  =500  THEN  2020 

1780  PRINT  L I N < 1 > ; " - 

1790  PRINT  "DRAW  ALERT " 

1300  PRINT  " - " 

1810  PRINT 

1820  IF  F 3 >  = 1 2  THEN  1890 
1830  IF  F3< 1 2  THEN  2090 
1840  PRINT 

1850  PRINT  SPA<5>; "3TGP--DO  NOT  USE  THIS  DONOR'* 

I860  PRINT  SPA<4>;  Volumealert;  ,,ML/'60  DAYS  PLUS "  ;  St tidy  vo  1  umc ",  "WILL  EXCEED 
1870  PRINT 
1880  GOTO  1780 
1890  PRINT 

1900  PRINT  SPA<5> ; "STOP --DO  NOT  USE  THIS  DONOR" 

1910  PRINT  SPA<4>;F3; "DRAWS  IN  30  DAYS  WILL  EXCEED  LIMIT" 

1920  PRINT 
1930  PRINT 
1940  PRINT  "END" 

1950  PRINT 
1960  PRINT 

1970  LINPUT  "ANOTHER  DONOR?  <Y'N) ",  Another* 

1980  IF  Another*3" Y”  THEN  110 
1990  DISP  "SELECT  ANY  PROGRAM" 

2800  MASS  STORAGE  IS  ":F3" 

2010  END 
2020  PRINT 
2030  PRINT 

2040  PRINT  SPA<5>; "NONE" 

2050  PRINT 
2060  GOTO  1780 
2070  PRINT 
2080  PRINT 

2090  PRINT  SPA<5>; “NONE" 

2100  PRINT 
2110  PRINT 
2120  PRINT 
2130  PRINT 
2140  PRINT  "END" 

2150  PRINT 

2160  PRINTER  IS  16 

2170  PRINT 

2180  LINPUT  "ANOTHER  DONOR?  <Y/N> ",  Another* 

2190  IF  Another*="Y"  THEN  110 
2200  PRINT  "END" 

2210  MASS  STORAGE  IS  ":F8” 

2220  PRINT  PAGE 

2230  DISP  "SELECT  ANY  PROGRAM” 

2240  END 

2250  Gl*=Today*date#C 1 , 23 
2260  L 1 =VAL  <  G 1  *  > 

2270  G2*  =  Toda"sd  at  e*E  4,53 
2280  C1=VAL<G2*> 

2290  G3*=Todaysdate*C7, 83 
2300  V 1 =VAL <  G3*  > 

2310  RETURN 

2320  G4*=Date*C 1,23 


2330  Ml=VflL<G4*> 

2346  G5$=Date#C4, 5] 

2350  Dl=VfiL<G5$> 

2360  C6#*Dite*C7,8J 
2370  Yt=VflL<G6*> 

2380  RETURN 
2390  2*0 
2400  B  =  Y  1 
2410  F=V1 

2420  IF  M1*100+D1<229  THEN  2440 
2430  B=Y1+1 

2440  IF  L1*100+C1 >228  THEN  2460 

2450  F*V 1-1 

2460  B=INT(<B+3>/4> 

2470  IF  4*B<  =F  THEN  2500 
2480  B=0 
2490  GOTO  2510 
2500  B*INT<F/4>-B+l 
2510  IF  LI >=Ml  THEN  254© 

2520  L1-12+L1 

2530  V1=V1-1 

2540  FOR  I =M 1  TO  Ml-1 

2550  J*I-INT<<I-1>. 12>*12 

2560  IF  J=4  THEN  2620 

2570  IF  J=6  THEN  2620 

2580  IF  J*9  THEN  2620 

2590  IF  J=ll  THEN  2620 

2600  IF  J*2  THEN  2640 

2610  GOTO  2650 

2620  B=B- 1 

2630  GOTO  2650 

2640  B=B -3 

2650  NEXT  I 

2660  REM  Z  IS  NUMBER  OF  DAYS 
2670  Z*365*<V1-Y1)+31*(H-M1)+C1-D1+E 
2680  IF  Z<0  THEN  390 
2690  RETURN 
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HOW-TO 


PRINTER  IS  16 
PRINT  PAGE 

INPUT  "DO  YOU  WANT  A  PRINTED  COPY  OF  THESE  INSTRUCTIONS?  (V/N ) “ , H  -«  1  ■  c  I 
IF  Hardcopy**"/"  THEN  PRINTER  IS  & 

PRINT  "  WELCOME  TO  THE  BLOOD  INFORMATION  AND  SECURITY  SYSTEM  t  MOWN  A 


60  PRINT  "  *  - " 

70  PRINT 

80  PRINT  "  BLISS" 

90  PRINT  "  - " 

10O  PRINT 
110  PRINT 
120  PRINT 

130  PRINT  TABU0);"THIS  SET  OF  SIX  MAIN  AND  FOUR  PERIPHERAL  PROGRAMS  WAS  DESIG 
NED  BY" 

140  PRINT  "DR.  NICHOLAS  CATSIMPOOLAS  AND  ADAPTED  FOR  USE  ON  THE  MODELS  9835  AN 
D  9845" 

150  PRINT  "HEWLETT-PACKARD  DESK-TOP  COMPUTERS  BY  STINA  COOKE  FOR  THE  NAVAL  BlO 
OD  RESEARCH" 

160  PRINT  "LABORATORY  IN  BOSTON." 

170  PRINT 

180  PRINT  TABC 10) ; "THESE  PROGRAMS  STORE  INFORMATION  ON  BLOOD  DONORS,  PROVIDE  E 
ASY  ACCESS" 

190  PRINT  "TO  DATA,  WARN  PERSONNEL  OF  EXCEEDED  SAFETY  LIMITS  AND  ALLOW  THE  USE 
R  TO  SEARCH" 

200  PRINT  "FOR  DONORS  MEETING  CERTAIN  EXPERIMENTAL  CONDITIONS." 

210  PRINT 
220  PRINT 
230  PRINT 

240  IF  Hardcopy **"Y"  THEN  280 
230  PRINT  "PRESS  'CONT  TO  GO  ON" 

260  PAUSE 
270  PRINT  PAGE 

280  PRINT  “BLISS  CONSISTS  OF  SIX  MAIN  PROGRAMS:" 

290  PRINT 

300  PRINT  TAB<5>;  "DONOR  TAB<15>  ;  "GENERATES  AND  UPDATES  AN  INFORMATION  FILE  FO 
R  EACH  DONOR." 

310  PRINT 

320  PRINT  TAB<5);  "SOCIAL";  TABUS);  "LISTS  DONOR'S  SOCIAL  SECURITY  AND  STORAGE  D 
ISK  NUMBER." 

330  PRINT 

340  PRINT  TAB<5); "LIST"; TAB < 15 >; "LISTS  DATA  FROM  ALL  OR  SELECTED  DONATIONS." 
350  PRINT 

360  PRINT  TAB<5);  "WRONG";  TABUS);  "MAKES  CORRECTIONS  ON  PREVIOUSLY  ENTERED  LATA 

II 

• 

370  PRINT 

380  PRINT  T A B < 5 > ; "ALERT" ; T A B < 15); "LISTS  DMSO  AND  RADIOACTIVITY  LEVELS  PREVIOUS 
LY  RECEIVED, " 

390  PRINT  TABUS):  "AND  WARNS  IF  DONOR  SAFTEY  LEVELS  HAVE  BEEN  EXCEEDED." 

400  PRINT 

410  PRINT  TAB<S);  "SELECT";  TABUS'*;  "LISTS  THE  NAME,  SOCIAL  SECURITY  NUMBER,  AND 

DONATION" 

420  PRINT  TABUS);  "DATES  OF  ALL  DONORS  HAVING  A  USER-GIVEN  COMBINATION  OF" 

430  PRINT  TABUS);  "EXPERIMENTAL  CONDITIONS." 

440  PRINT 

450  PRINT 

460  IF  Hardcopv*=" Y "  THEN  GOTO  50O 
470  PRINT  "PRESS  CONT  TO  GO  ON" 

480  PAUSE 


*  * 


•  '  .  'm  ‘  -  V  -* 


'  mP  f  m  *m  .  - 


V*V  *•  .*  ’/  V.  .\V  V.  •*.  •  .  •*.  •*.  ■*.  **.•**  •, 

*  A  V  V  ■*  .* 


HOW-TO 


490  PRINT  PAGE 

500  PRINT  "AND  FOUR  PERIPHERAL  PROGRAMS: " 

510  PRINT 

520  PRINT  TAB<5);  '*  HOW-TO"  ;  TAB1'  15';  “PROVIDES  INFORMATION  AND  INSTRUCTIONS  ABOUT 
THE  SYSTEM." 

530  PRINT  TABUS);  “HOW-TO  OPERATES  ONLY  ON  MODEL  9845  AND  DISPLAYS  ON  SCREEN" 
540  PRINT  TABC 15> I "OP  WITH  OPTIONAL  PAPER  PRINT-OUT." 

550  PRINT 

560  PRINT  TAB<5>;  "BACKUP":  TABU5)  ;  "COPIES  ALL  DATA  FROM  MAIN  DISKS  TO  A  SECOND 
SET  OF  DISKS" 

570  PRINT  TABU5);  "STORED  ELSEWHERE  FOR  EMERGENCY  PURPOSES." 

580  PRINT 

590  PRINT  TAB  <  5  >  ;  "NUMBER  “  ;  TAB  •  15);  "CREATES  A  FILE  CALLED  Number'  ON  NEW  STO^A 
GE  DISKS  WHICH" 

600  PRINT  TABUS)  ;  "PREVENTS  ADDING  DATA  TO  THE  WRONG  DISK  OR  MIXING  UP  MAIN" 
610  PRINT  TABUS);  "DISKS  WITH  BACKUP  DISKS." 

620  PRINT 

63©  PRINT  TAB(5>;  "FILE ";  TABUS) ;  “CREATES  A  FILE  WHICH  CAN  BE  USED  TO  STORE  SOC 
IAL  SECURITY" 

640  PRINT  TABUS) ;  “AND  STORAGE  DISK  NUMBERS.  THIS  ALLOWS  THE  USER  TO  TtST" 

650  PRINT  TABC15) J “PROGRAMMING  CHANGES  WITHOUT  RISK  TO  ESTABLISHED  DATA.  OR" 

660  PRINT  TABU 5>{ “TO  USE  'BLISS'  TO  KEEP  A  SEPARATE  SET  OF  DATA  NOT  RELATED" 
670  PRINT  TABUS);  "TO  THE  MAIN  SECURITY  SYSTEM." 

680  PRINT 

690  IF  Hardcopy*="Y"  THEN  GOTO  730 
700  PRINT  "PRESS  'CONT'  TO  GO  ON" 

710  PAUSE 
720  PRINT  PAGE 
730  PRINT 
740  PRINT 

750  PRINT  "TO  OPERATE  A  PROGRAM  DO  THE  FOLLOWING:" 

760  PRINT 

770  PRINT  TABC5) ; "  1 .  INSERT  PROGRAM  DISK  INTO  THE  TOP  FLEXIBLE  DISK  DRIVE  AND 
OTHER" 

780  PRINT  TAB<9>; "DISKS  INTO  THE  LOWER  DISK  DRIVES  AS  CALLED  FOR  BY  THE  PPOGPA 
MS.  " 

790  PRINT 

800  PRINT  TABCS);  "2.  TYPE  THE  COMMAND:  GET  "BLISS:  F8" ,  10,  10  (USING  REGULA 
R" 

810  PRINT  TAB (9) ;  "QUOTE  MARKS).  PRESS  KEYBOARD  KEY  'EXECUTE'." 

820  PRINT 

830  PRINT  T A B < 5 ) ; " 3 .  PROGRAM  BEGINS.  PLACE  BLISS  OVERLAY  ON  THE  UPPER  RIGHT 

HAND" 

840  PRINT  TAB<9);  “KEYS.  ALL  RESPONSES  EXCEPT  YES  S<  NO  MUST  BE  FOLLOWED  BY  CON 
T'.  " 

850  PRINT 

860  PRINT  T  A  B  (  5  >  J "5.  BE  SURE  TO  ANSWER  ALL  QUESTIONS  WITHIN  THE  PROGRAM.  IF 
NOT" 

870  PRINT  TAB<9); "APPLICABLE,  ENTER  '0'  AND  PRESS  'CONT' . " 

880  PRINT 

39©  PRINT  TAB<5) ; "6.  IF  YOU  ENCOUNTER  PROBLEMS  AND  WANT  TO  START  OVER,  PRESS" 

900  PRINT  TAB(9) ; "KEYBOARD  KEYS  STOP'  AND  THEN  'RUN'." 

910  PRINT 

920  IF  Hardcopy*3" Y "  THEN  930 
930  PRINT  "PRESS  CONT'  TO  GO  ON" 

940  PAUSE 
950  PRINT  PAGE 
960  PRINT 
970  PRINT 


50 


HOW-TO 


930 

PRINT 

990 

PRINT 

"OTHER 

1000 

PRINT 

1010 

L" 

PRINT 

TAB<5> ; 

102O 

it 

PRINT 

TAB ^9) ; 

1030 

PRINT 

TAB  <  9  )  ; 

1040 

PRINT 

TABC9); 

1050 

PRINT 

TAB  <  9) ; 

1060 

II 

PRINT 

TAB (9) ; 

1070 

PRINT 

TAB<.9> ; 

1080 

PRINT 

1090 

E" 

PRINT 

TAB<5) ; 

1100 

PRINT 

TABO)  ; 

1  110 

PRINT 

TAB  <  9  > ; 

1120 

PRINT 

TAB<9>; 

1130 

PRINT 

1140 

TS" 

PRINT 

TABC5)  J 

1 150 

PRINT 

TAB<9>; 

1160 

PRINT 

1170 

PRINT 

"END" 

1180 

DISP  " 

SELECT 

1190 

PRINTER  IS  16 

1200 

END 

1 1.  THE  QUESTION  COMPUTER  9835  OR  9845  "> 
1  NUMBER  SHOWN  ON  THE  FACE  OF  THE  MACHINE. 


REFERS  Tii  I  HE  I!'.- in. 
BLISS  WILL  ORERmTF. 


"ON  EITHER  MACHINE,  HOWEVER,  FOR  MODEL  9835,  VARIABLE  NAMES" 
"ARE  PRESENTED  ON  A  TYPED  SHEET  STORED  IN  THE  PROGRAM  DISK" 
"ENVELOPE  AND  PRINTED  OUTPUT  APPEARS  IN  HIGHLY  ABBREVIATED" 
"FORM.  IT  IS  RECOMMENDED  THAT  YOU  BECOME  FAMILIAR  WITH  BLISS 

"OH  MODEL  9845." 

"2.  EACH  PROGRAM  WILL  GIVE  YOU  THE  STORAGE  DISK  NUMBER  OF  i H 

"DONOR.  BECAUSE  THE  PROGRAM  DISK  CONTAINS  THIS  INFORMATION" 
"BE  SURE  THAT  IT  IS  ALWAYS  INSERTED  INTO  THE  TOP  DISK  DRIVE." 
"INSERT  OTHER  DISKS  AS  CALLED  FOR  IN  THE  LOWER  DISK  DRIVES." 

"3.  PLEASE  WRITE  DOWN  YOUR  PROBLEMS  AND  IDEAS  FOR  I MPRQVEMEN 

"AND  GIVE  THEM  TO  STINA  COOKE  <MON  &  FRI  AFTERNOONS)." 


\ 


WKUNG 


10  PRINTER  IS  16 

20  PRINT  PAGE 

30  PRINT  “ BLISS" 

40  PRINT 

50  PRINT  1  PROGRAM  WRONG" 

60  PRINT 

70  PRINT 

SO  PRINT 

SO  PRINT 

100  PRINT  "  1  SOCIAL  SECURITY  NO. " ; TABC41 > ; "2  DONOR'S  FIRST  NAME" 

110  PRINT  "  3  DONOR'S  LAST  NAME " ; TAB < 4 1 > ; " 4  DATE  OF  DONATION" 

120  PRINT  “  5  METHOD  OF  COLLECT  I ON " ; TAB < 4 1 > ; " 6  TYPES  OF  CELLS  AND  STUDY" 

130  PRINT  “  7  KIND  OF  STORAGE  AND  CELL  AGE " J T AB < 4 1 > ; " 8  REJUVENATION  SOLUTION 

11 

1'  4  0  PRINT  "  9  51-CR  RAD  I  AT  I  ON " ;  TAB  <  40  >  ;  "  1 0  125-1  RADIATION" 

150  PRINT  "11  111-INDIUM  RADI  AT  ION" J TAB <40 );" 12  DMSO  CONCENTRATION" 

160  PRINT  "13  RESIDUAL  DMSO  INFUSED" ; TAB<40> 14  AUTOTRANSFUSION  NO." 

170  PRINT  "15  SPECIAL  CODE  NO.  "  ;  TAB  <  4*3)  ;  "  16  REACTIONS" 

ISO  PRINT  "17  ENTIRE  DONATION" ; TAB < 40) ; " 18  WASH  SOLUTION" 

190  PRINT  "19  COMMENTS" ;TAB< 40); "20  MORE  COMMENTS" 

2O0  PRINT  "21  BLOOD  VOLUME" 

210  PRINT 

220  PRINT 

230  INPUT  "WHAT  IS  WRONG?  < I TEM  NUMBER )", Wrong 

240  PRINT  PAGE 

250  IF  Wf  ong=l  THEN  S3© 

260  IF  Sarr.e$="Y“  THEN  590 

270  L INPUT  "DONOR'S  SOCIAL  SECURITY  NO.?",Ss* 

280  IF  Ss*C4;  130"-"  THEN  320 
290  IF  Ss*t7; 1 K >"-"  THEN  320 
300  IF  LEN<Ss$) >11  THEN  320 
310  GOTO  350 

320  DISP  "INCORRECT  SS4--T0  TRY  AGAIN  PRESS  'CONT'" 

330  PAUSE 

340  GOTO  270 

350  DISP  "PLEASE  WAIT" 

360  0*=Ss*C5,6] 

370  P$«Si*[8,U] 

380  Fi\e$=Q $&Pt 

390  MASS  STORAGE  IS  ":F8,l" 

400  ASSIGN  #5  TO  "REGIS: F8" 

410  READ  #5, 1 ;P 

420  FOR  I=P+1  TO  2  STEP  -1 
430  READ  #5, I;Ssl#,Disk 

440  IF  Ssl*=Ss#  THEN  480 

450  NEXT  I 

460  IF  SslfOSs*  THEN  PRINT  "DONOR  HOT  FOUND" 

470  GOTO  3520 

480  D I SP  " I NSERT  D I SK  NO .  :  "  ;  B  i  s  k  ;  "  PRESS  CONT  '  " 

490  PAUSE 

500  ASSIGN  #3  TO  "Number" 

5 1 0  READ  43 , 1 ; Number , D i sk t  ype  t 
520  IF  Di  sk  t, ype$< .  "M"  THEN  550 
530  IF  Bisk=Numb*r  THEN  530 
540  PRINT 

550  PRINT  "WRONG  DISK.  INSERT  MAIN  DISK  NO.:"; Disk;"  PRESS  CONT  " 

560  PAUSE 

570  GOTO  5O0 

N 


WPL'Htj 


ASSIGN  #1  TO  File* 

IF  Wrong=2  THEN  1360 
IF  Wrong =3  THEN  1320 
READ  #1 , 5; E 

PRINT  "DONATION  DATES:" 
PRINT 

FOP  1=1  TO  E 
E2=20* I 

READ  4 1 , E2; Date* 

PRINT  ; I ; SPR<2) ; Date* 
NEXT  I 

INPUT  "DONATION  NO.?",E 
IF  Wrong=4  THEN  140© 

IF  Wrong=5  THEN  1440 
IF  Wrong=6  THEN  1680 
IF  Wrong®?  THEN  I860 
IF  Wrong=8  THEN  1980 
IF  Wror.g  =  9  THEN  2110 
IF  Wrong® 10  THEN  2160 


IF  Wrong=5  1 
IF  Wrong=6  1 
IF  Wrong®?  1 
IF  Wrong=8  1 
IF  Wrong=9  1 
IF  Wrong® 10 
IF  Wrong® 11 
IF  Wrong® 12 
IF  Wrong® 13 
IF  Wrong® 14 
IF  Wrong® 15 
IF  Wrong®  16 
IF  Wrong® 1 7 


THEN  2200 
THEN  2280 


THEN 

THEN 

THEN 

THEN 

THEN 


2320 

2360 

2400 

2440 

1320 


IF  Wrong= 1 8  THEN  2530 
IF  Wrong® 19  THEN  2650 
IF  Wrong=20  THEN  2950 
IF  Wrong®2 1  THEN  2240 

LINPUT  "INCORRECT  SOCIAL  SECURITY  NO.?" ,Badl 
DISP  "PLEASE  WAIT" 

0o*=Bad*C5,6J 
Pp*=Bad*C8, 1 1 1 
Wrong* =Oo*&Pp* 

MASS  STORAGE  IS  " :F8,1" 

ASSIGN  #5  TO  "REGIS:F8" 

READ  #5, 1 ;P 
FOR  I=P+1  TO  2  STEP  -1 
READ  45 , I ; Ss 1  * , D i 3  k 
0oo*=Ssl*C5,6J 
Ppp*  =  Ssl*C8, 1 1 1 
Ss2*®0oo*&Ppp* 

IF  Ss2*=Wrong*  THEN  I860 
NEXT  I 

IF  Ss2*<  >Wrong*  THEN  1040 
PRINT  "INCORRECT  SS#  NOT  FOUND" 

GOTO  270 

DISP  "INSERT  DISK  NO."; Disk;"  PRESS  'CONT'" 
PAUSE 

ASSIGN  43  TO  "Number" 

READ  43 , 1 ; Number 

IF  Disk: “Number  THEN  1150 

PRINT 

DISP  "WRONG  DISK,  INSERT  NO.:”; Disk;"  PRESS 

PAUSE 
GOTO  1030 

LINPUT  "CORRECT  SOCIAL  SECURITY  NO.?",Ss* 


54 


WRONG 


1160  IF  S»*C4;  1  ]<  >'■  -  "  THEN  1200 
1170  IF  Ss*C7; 1 3< >"-"  THEN  1200 
1130  IF  LEN(3s*>  >11  THEN  1200 
1190  GOTO  1230 

120©  DISP  “INCORRECT  SS#  — TO  TRY  RGB IN  PRESS  'CONT'“ 

1210  PAUSE 

1220  GOTO  1150 

1230  0*=Ss*£5,6J 

1240  P*»Ss*C8,in 

1250  File*=0*&P* 

1260  PRINT  #5, I; Ss*, Disk 
1270  ASSIGN  #1  TO  Wrong* 

1230  RENAME  Wrong*  TO  File* 

1290  ASSIGN  #1  TO  Fi 1e* 

1300  PRINT  #1, 1 ; Ss* 

1310  GOTO  3520 

1320  LINPUT  “LAST  NAME  OF  DONOR"  ,  Last  name* 

1330  IF  Wrong® 1 7  THEN  1360 
1340  PRINT  #1,4; Last  name* 

1350  GOTO  3520 

1360  LINPUT  “FIRST  NAME  OF  DONOR" , Fi rstname* 

1370  IF  Wrongs  1 7  THEN  1400 
1380  PRINT  #1 , 3;Firstname* 

1390  GOTO  3520 

1400  LINPUT  "DONATION  DATE  IN  THE  FORM  MM-DD-YY" , Dat e* 
1410  IF  Wrongs l 7  THEN  1440 


1420 

PRINT 

#1,E*20; 

Bat  e* 

1430 

GOTO 

3520 

1440 

PRINT 

"  V  7  7  6 

(CITRATE-PHOSPHATE  DEXTROSE— NEW  PLASTIC 

V776 ) " 

1450 

PRINT 

"  A772 

(CITRATE-PHOSPHATE  DEXTROSE— NEW  PLASTIC 

A772 ) " 

1460 

PRINT 

"VI 035 

(CITRATE-PHOSPHATE  DEXTROSE— NEW  PLASTIC 

VI 035)" 

1470 

PRINT 

"  CPB 

(CITRATE-PHOSPHATE  DEXTROSE — STANDARD  COLLECTION  BAG) 

1430 

PRINT 

"  ACD 

(ACID  CITRATE  DEXTROSE)" 

1490 

PRINT 

"CP DA  1 

(CITRATE-PHOSPHATE-DEXTROSE-ADENINE  1)" 

1500 

PRINT 

"CPDA2 

(CITRATE-PHOSPHATE-DEXTROSE-ADENINE  2)" 

1510 

PRINT 

“CPDA3 

(CITRATE-PHOSPHATE-DEXTROSE-ADENINE  3)" 

1520 

PRINT 

"HEP 

(HEPARIN)" 

1530 

PRINT 

"RCPD 

(1  UNIT  RBC  RETURNED;  CPDV 

1540 

PRINT 

"RACD 

(1  UNIT  RBC  RETURNED;  ACD)" 

1550 

PRINT 

"2  RCPD 

(2  UNITS  RBC  RETURNED;  CPD>" 

1560 

PRINT 

"2  RACD 

(2  UNITS  RBC  RETURNED;  ACD)" 

1570 

PRINT 

"RCPDA1 

(RBC  RETURNED  CPDA1 ) " 

1580 

PRINT 

" RCPDA2 

(RBC  RETURNED  CPDA2 > " 

1590 

PRINT 

"RCPDA3 

(RBC  RETURNED;  CPDA3) " 

1600 

PRINT 

"ADL 

< PHERES IS ) " 

1610 

PRINT 

"IBM 

(PHERESIS) " 

1620 

PRINT 

"FENWAL 

(PHERESIS)" 

1630 

PRINT 

"OTHER 

(MISCELLANEOUS)" 

1640 

LINPUT  "METHOD 

OF  COLLECT  ION?", Method* 

1650 

IF  Wrong* 1 7  THEN  1630 

1660 

PRINT 

#l,E*20+5;Method* 

1670 

GOTO  3520 

1630 

PRINT 

PAGE 

1690 

PRINT 

"rbctx 

(RED  CELL  TRANSFUSION)" 

1700 

PRINT 

"RBCDR 

(RED  CELL  UNIT  DRAW)" 

1710 

PRINT 

"PLTTX 

(PLATELET  TRANSFUSION)" 

1720 

PRINT 

"PLTDR 

(PLATELET  DRAW-WHOLE  BLOOD)" 

1721 

PRINT 

“PLTDRPFP  ( PLATELET  DRAW-PLATELET  RICH  PLASMA)" 

1722 

PRINT 

"PLTDRPPP  < PLATELET  DRAW-PLATELET  POOR  PLASMA)" 

1730 

PRINT 

"WBCTX 

(WHITE  BLOOD  CELL  TRANSFUSION)" 

•  .VvV, 

Y-.V.1..-. 


WRONG 


1740  PRINT  "WEC-DR  (WHITE  BLOOD  CELL  DRAW)" 

1750  PRINT  “SSAMP  Cl -50  ML  SAMPLE  > " 

1760  PRINT  " LSflMP  < GREATER  THAN  50  ML  SAMPLE > " 

1770  PRINT  “EYE  CEYE  EXAM) " 

1780  PRINT  "BONEM  < BONE  HARROW >“ 

1790  PRINT  “F'BSTEM  < PERIPHERAL  BLOOD  STEM  CELLS)" 

1800  PRINT  " NEOCTX  CNEOCYTES  TRANSFUSION)" 

1810  PRINT  "NEOCDR  CNEOCYTE  DRAW)" 

1820  LINPUT  "TYPES  OF  CELLS  &  STUDY?" , Types* 

1830  IF  Wrong* 17  THEN  I860 
1840  PRINT  #1 , E*20+6; Types* 

1850  GOTO  3520 
I860  PRINT  PAGE 

1870  PRINT  "LIQOU  (LIQUID  OUTDATED)" 

1880  PRINT  "LIQIN  (LIQUID  INDATED)" 

1890  PRINT  "FZNOUM  (FROZEN,  OUTDATED,  MECHANICAL)" 

1900  PRINT  "FZNINM  (FROZEN,  INDATED,  MECHANICAL)" 

1910  PRINT  “ FZNOUL  (FROZEN,  OUTDATED,  LIQUID  NITROGEN)" 

1920  PRINT  "FZNINL  (FROZEN,  INDATED,  LIQUID  NITROGEN)" 

1930  PRINT  "NOT  FZN  (NOT  FROZEN)" 

1940  LINPUT  "KIND  OF  STORAGE  AND  CELL  AGE?", Kind* 

1950  IF  Wrong* 17  THEN  1980 
1960  PRINT  #l,E*20+7;Kind* 

1970  GOTO  3520 
1980  PRINT  PAGE 

1990  PRINT  "PIGPAA  (PIGPA  SOLUTION  A)" 

2000  PRINT  "PIGPAB  (PIGPA  SOLUTION  B>" 

2010  PRINT  "PIGPAC  (PIGPAC  SOLUTION  C>“ 

2020  PRINT  "PIPAA  (PIPA  (NO  GLUCOSE)  SOLUTION  A)" 

2030  PRINT  "PIPAB  (PIPA  (NO  GLUCOSE)  SOLUTION  B)" 

2040  PRINT  "PIPAC  (PIPA  (NO  GLUCOSE)  SOLUTION  C>" 

2050  PRINT  "FRES  (FENWAL  REJUVENATION  SOLUTION  SOLUTION)" 

2060  PRINT  "NR  (NON-RE JUVENATED) " 

2070  LINPUT  "REJUVENATION  SOLUTION?" , Rejuvsol n* 

2080  IF  Wrong* 1 7  THEN  2110 
2090  PRINT  #l,E*20+8;Re.juvsoln* 

2100  GOTO  3520 
2110  PRINT  PAGE 

2120  LINPUT  "51 -CR  RADIATION  (MICROCURIES)?" , Cr5i* 

2130  IF  Wrong* 1 7  THEN  2160 
2148  PRINT  #1 ,E*20+2;Cr51* 

2150  GOTO  3520 

2160  LINPUT  "125-1  RADIATION  ( M I CROCUR I ES ) ? " , 1 1 25* 

2170  IF  Wrong* 17  THEN  2200 
2180  PRINT  #l,E*20+3; 1125* 

2190  GOTO  3520 

2200  LINPUT  "111-INDIUM  RADIATION  ( M I CROCUR I ES ) ? " , Ind i um 1 1 1  * 
2210  IF  Wrong* 1 7  THEN  2240 
2220  PRINT  #l,E*20+4; Indiumlll* 

2230  GOTO  3520 

2240  LINPUT  "BLOOD  VOLUME  DRAWN  (MLS)?" , Volume* 

2250  IF  Wrong* 1 7  THEN  2280 
2260  PRINT  «1 ,E*20+15; Volume* 

2270  GOTO  3520 

2280  LINPUT  "DMSO  CONCENTRATION  (*)?" ,  Dmsoconc* 

2290  IF  Wrong* 17  THEN  2328 
23O0  PRINT  #1 , E*20+12; Dmsoconc  * 


WRONG 


2313 

2323 

2330 

2343 

2350 

2360 

2373 

2330 

2393 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2473 

2480 

2490 

2500 

2518 

2520 

2530 

2540 

2550 

2560 

2570 

2588 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

>" 

2670 

2630 

2690 


GOTO  3523 

LINPUT  "RESIDUAL  DMSO  INFUSED  <MG)?“ , Dmsoi nfused* 

IF  Wrong* 1 7  THEN  2360 

PRINT  #1 ,  E*23+l ;  Dmsoi  nfused* 

GOTO  3520 

LINPUT  "AUTOTRANSFUSJON  NUMBER?" , fiutotrans* 

IF  Wrong® 1 7  THEN  2400 
PRINT  #  1 ,  E*20  + 10:  Hut ot  r arts* 

GOTO  3520 

LINPUT  “SPECIAL  CODE  NO.?", Code* 

IF  Wrong® 1 7  THEN  2440 
PRINT  #1,E*23+11; Code* 

GOTO  3520 
PRINT  “ 1-125“ 

PRINT  “PLT-REA" 

PRINT  “RBC-REA" 

PRINT  " WBC-REA" 

PRINT  "IF  NONE,  ENTER  0" 

LINPUT  "ANY 
IF  Wrong* 17  THEN  2530 
PRINT  # 1 , E*20+9J React i ons* 

GOTO  3520 


REACTIONS?" .React  ions* 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

LINPUT 


PAGE 

"S/2-7-40" ; TABUS) 

"9/2-5-00";  TABUS) 

"9/2-5-40 " ; TAB< 15) 

“9/2-5-30“ ;TAB< 15) 

" 9/2-6-80" ;TAB< 15) 

"9/2-6. 5-40” ;TAB< 15); "<0.9/0. 2 
"9/2-6. 8-40"; TAB<15); "<0.9/0. 2 
"WASH  SQLUT I  ON? " , Washsol n* 


"<0.8/0. 2 
“ <0. 9/0. 2 
"<0.9/0. 2 
"<0.9/0. 2 
"<0.9/0. 2 


PH 

pH 

pH 

pH 

PH 


7 

5 

5 

5 

6 
pH 
pH 


with  PHOSPHATES  <40mg!O>" 
without  PHOSPHATES)" 
with  PHOSPHATES  <40mgJi)>" 
with  PHOSPHATES  <80mg7.) )  " 
with  PHOSPHATES  <80f.»gV.))" 


6.5 

6.8 


with 

with 


PHOSPHATES 

PHOSPHATES 


<  40  rug); )  > 
<40mg';) ) 1 


IF  Wrong* 17  THEN  2650 
PRINT  #l,E*20+13;Washsoln* 

GOTO  3520 
PRINT  PAGE 

PRINT  "PROC  ERR  PROCESSING  ERROR) "; TAB<40) ; "CONT  UNIT  <CONTAMINATED  UNIT 


PRINT 

PRINT 

PRINT 


"REFZN 
"FZN  ERR 
"LOW  HCT 


TO  TRANSPORT)" 


< UN I T  WAS  REFROZEH) " ; TAB < 40) ; "PED 
< FREEZ I NG  ERROR) " ; TAB < 40) ; "CARD 
<HEMATOCRIT  TOO  LOW) "; TAB<40) ; "TRANS 


<  PEDIATRIC  UN  I  TV 
<CARDIOPLEGI A  UNIT)' 
<  UN  I T  SUBJECTED 


2700  PRINT 
2710  PRINT 
WASHED)" 


'HIGH  HCT 
•LOW  PUL 


<H£MATQCRIT 
< PULSE  RATE 


TOO 

TOO 


HIGH) " ; TAB<40) ; "SHORT 
TAB <40 ) ; "L I Q  WSH 


DR 


LOW) "; 


<SHORT  DRAW)" 
<UNIT  WAS  LIQUID 


2720 

2730 

)" 

2740 


PRINT 

PRINT 


'HIGH  PUL 
'  IRR  PUL 


< PULSE 
< PULSE 


RATE 

RATE 


TOO  HIGH)";TAB<40); "LOW  TEMP 
IRREGULAR) " ; TAB<40> ; "HIGH  TEMP 


< TEMP  TOO  LOW)" 
<TEMP  TOO  HIGH 


PRINT 


"LOW  BP 
SOLA  TED  FROM  UNIT)" 
2753  PRINT  "HIGH  BP 
D  FOR  VITRO  USE)" 

2760  PRINT  "WTHDRW 
EJECED  FOR  UNIT  DRAW) 
2770  PRINT  "ILL 
LOCHOL)" 

2730  PRINT  "NO  SHOW 


< BLOOD  PRESSURE  TOO  LOW)  "  *,  TAB < 40)  ;  "PLT  ISO  < PLATELETS  I 
< BLOOD  PRESSURE  TOO  HIGH) "; TAB < 40) ; "VITRO  WASH  <UNIT  WASHE 


< DONOR  VOLUNTARILY 


WITHDREW)"; TAB <40 ); "RJTDR 


< DONOR  P 


< DONOR  WAS  ILL>" ; TAB < 40)  : 


"ALC  IN 


< DONOR  HAD  INGESTED  A 


(  DONOR  DID  NOT  APPEAR ) " : TAB < 40 )  I 


WRONG 


2790  PRINT  "V776  (UNIT  DRAWN  IN  NEW  PLASTIC  BAG  V776>" 

2800  PRINT  “ A772  (UNIT  DRAWN  IN  NEW  PLASTIC  BAG  A772)" 

2810  PRINT  "21  LIQ  (LIQUID  STORED  FOR  21  DAYS  @  4degC>" 

2820  PRINT  "35  LIQ  (LIQUID  STORED  FOR  35  DAYS  0  4degC)“ 

2830  PRINT  "POOR  FTW  (POOR  FREEZE-THAW-WASH  RECOVERY) " 

2840  PRINT  "72  HR  (UNI.T  STORED  9  4degC  FOR  72  HOURS  POST  WASH) 

2850  PRINT  "NOXXhr )  (NO  SAMPLES  OBTAINED  AFTER  TIME  INDICATED)" 
2860  L INPUT  "COMMENTS?" , Comments* 

2870  IF  LEN (Comment  s*) >12  THEN  2890 
2880  GOTO  2920 

2890  DISP  "COMMENT  TOO  LONG-TOO  TRY  AGAIN  PRESS  'CONT'" 

2900  PAUSE 

2910  GOTO  2860 

2920  IF  Wrong3 1 7  THEN  2958 

2930  PRINT  #1,E*20+ 14; Comments* 

2940  GOTO  3520 

2958  LINPUT  "MORE  COMMENTS? ",  Comment. s2* 

2968  IF  LEN(Comments*) >12  THEN  2980 
2970  GOTO  3018 

2980  DISP  "COMMENT  TOO  LONG--TO  TRY  AGAIN  PRESS  'CONT'" 

2990  PAUSE 

3000  GOTO  2950 

3010  IF  Wrong3 17  THEN  3048 

3028  PRINT  #1 ,E*20+16;Comments2* 

3030  GOTO  3520 
3040  PRINT  PAGE 

3050  PRINT  "HERE  IS  THE  INFORMATION  YOU  ENTERED" 

3068  PRINT 

3870  PRINT  "NAME  OF  DONOR*  " ; Fi rstname*; SPA( 1 ) ; Lastname* 

3080  PRINT  "SOCIAL  SECURITY  NUMBER.3  “;Ss* 

3098  PRINT  "DATE  OF  DONATION3  ";Date* 

3100  PRINT  "METHOD  OF  COLLECTION3  "jMethod* 

3110  PRINT  "TYPES  OF  CELLS  AND  STUDY3  Types* 

3120  PRINT  "BLOOD  VOLUME  DRAWN3  "; Volume*;"  MLS" 

3138  PRINT  "KIND  OF  STORAGE  AND  CELL  AGE=  ";Kind* 

3140  PRINT  "REJUVENATION  SOLUTION3  "jRejuvsoln# 

3158  PRINT  "51 -CR  RADIATION3  ";Cr51*;"  MICROCURIES" 

3160  PRINT  "125-1  RADIATION3  ";I125*;"  MICROCURIES" 

3170  PRINT  "111-INDIUM  RADIATION3  " ; Indi uml 1 1$; "  MICROCURIES" 
3180  PRINT  " DMSO  CONCENTRATION3  "  ;  Dmsoc one  * ;  " 

3198  PRINT  "RESIDUAL  DMSO  INFUSED3  "; Dmsoi nf used*; "  MG" 

3200  PRINT  "AUTOTRANSFUSION  NO.3  ";Autotrans* 

3210  PRINT  "SPECIAL  CODE  NO.3  ";Code* 

3220  PRINT  "REACTIONS3  " ; Reac t i ons* 

3230  PRINT  "WASH  SOLUTION3  ",'Washsoln* 

3240  PRINT  "COMMENTS3  "; Comments* 

3250  PRINT  "MORE  COMMENTS3  "; Comment s2* 

3260  LINPUT  "IS  THE  INFORMATION  CORRECT  (Y^N)?" ,  Correct* 

3270  IF  Correct *3"Y"  THEN  3290 
3280  IF  Correct *3"N"  THEN  100 
3298  PRINT  #1, 1 ; Ss* 

3300  PRINT  # 1 , 3; F i rstname# 

3310  PRINT  #1,4; Last name# 

3320  PRINT  #1 , E*20; Date# 

3338  PRINT  # 1 , E*20+ 1 ; Dmso i nf used* 

3340  PRINT  # 1 , E*20+2; Cr51 # 

3350  PRINT  #1 ,E*20>3; 1 125* 

3360  PRINT  # 1 , E*20  +  4; Indi uml  1 1  # 


MRONG 

3370 

PRINT 

*  1 , E*20*5; Method* 

3380 

PRINT 

#1 ,E*28+6; Types* 

3390 

PRINT 

ttl,E*20+7;Kind* 

3400 

PRINT 

# l , E*20+8 ; Rejuoso 1 n* 

3410 

PRINT 

#1 , E *20+9; React i ons# 

3420 

PRINT 

#1 , E*20+10; Autotr  ans* 

3430 

PRINT 

tt 1 , E*20+l 1 ; Codc$ 

3449 

PRINT 

#1 , E+28+12; Dmsoconc* 

3450 

PRINT 

#1 , E+20+13; Mashsol n* 

3460 

PRINT 

#1 , E*28+14; Comment s* 

3470 

PRINT 

#l,E*20+15;Vo1ume* 

3480 

PRINT 

#1 , E*20+16; Comment s2* 

3490 

PRINT 

3500 

PRINT 

3510 

PRINT 

"END” 

3520 

PRINT 

3530 

PRINT 

3540 

PRINT 

PAGE 

3550 

LINPUT 

“IS  THERE  ANOTHER  ERROR?  < Y^N > “ , Anot her* 

3560 

IF  flnot her$= "N"  THEN  3590 

3570 

LINPUT 

“SAME  DONOR? “.Same* 

3580 

GOTO  100 

3590 

MASS  STORAGE  IS  ":F3“ 

3600 

PRINT 

PAGE 

3610 

DI3P  M 

SELECT  ANY  PROGRAM'* 

3620 

END 

s' 


BACKUP 


PP 1 1  ITER  IS  It" 
PRINT  PAGE 
PRINT  "BLISS" 


S  fuRAGE 


IS  "  :  F 8 '• 

MAIN  PROGRAM  DISK  IN  F8  AND  BACKUP  PROGRAM  DISK  IN  F3,l. 


THEN 


PRINT  "BLISS" 

PRINT 

PRINT  “PROGRAM  BACKUP" 

PRINT 

MASS  STORAGE  IS  ":F8" 

DISP  "INSERT  MAIN  PROGRAM  DISK  IN  F8  AND  BACKUP  PR( 
CONT  " 

PAUSE 

DISP  "PLEASE  WAIT" 

ASSIGN  #3  TO  “Number: F8" 

ASSIGN  #4  TO  "Number :F8, I “ 

READ  #3; Number , Di sk type# 

READ  #4 ; Number  1 , Di sk typel $ 

IF  < Number < >©>  OR  < Number 1< >6)  THEN  180 
IF  <Di*ktype#<>,,M">  OR  <Di sk t ype  1  $<  >“B“  >  THEN  18© 
GOTO  210 

DISP  "WRONG  DISKS,  TRY  AGAIN" 

PAUSE 
GOTO  10O 

PURGE  "REGIS: F8,l" 

COPY  “REGIS: F8"  TO  "REGIS: F8, 1“ 

DISP  "INSERT  MAIN  DISK  4N  IN  F8, 1  AND  BACKUP  DISK  < 
PAUSE 

DISP  "PLEASE  WAIT" 

ASSIGN  #3  TO  "Number: F8, 1" 

ASSIGN  #4  TO  " Number :F8, 2" 

READ  43; Number  1 , Di sk typel ♦ 

READ  #4; Number2, Di sktype2» 

IF  Number  1  <  >Nurnber2  THEN  330 

IF  <: D i  sk  t  ype  1  ♦<  > “ M “  )  OR  <Di sktype2*< >"B" >  THEN  339 
GOTO  360 

DISP  "WRONG  DISKS,  TRY  AGAIN" 

PAUSE 
GOTO  250 

ASSIGN  #3  TO  “Number: F8, 1" 

READ  #3; Number 
Erid=Number*50+ 1 
St  art  =End~43 
ASSIGN  #5  TO  "REGIS" 

ON  END  #5  GOTO  500 
FOR  I  “Start  TO  End 
READ  #5, I; A* 

0*=A#t5,63 
P#“A*t8, 1 1 1 
Fi  I  e$  =  0*&P# 

Oldf i le»“Fi 1 e**" : F8, 2" 

PURGE  Oldf i le* 

NEXT  I 

ASSIGN  #3  TO  "Humber :F8, 1 " 

READ  43; Number 
End=Numb*r»50+ 1 
St  art “End-49 
ASSIGN  45  TO  "REGIS" 

ON  END  45  GOTO  640 
FOR  I =Start  TO  End 


F  8 , 2 .  PRESS  CONT 


BACKUP 


READ  MS,  I;Ss* 

0#=Ss#t5,6] 

P#=Ss#C8, 111 
F>  le*=0*&Pt&!":F8,  1" 

Newf  >  le#*0$S<P#‘i,,:F8,2" 

COPY  File#  TO  Newf  i  W# 

NEXT  I 

INPUT  "ANOTHER  SET  OF  BISKS?  (Y^N)" 
IF  Another#="Y“  THEN  230 
DISP  “END" 


,  Another  # 


NUMBER 


10  PRINTER  13  16 
2©  PRINT  PAGE 
30  PRINT  "BLISS" 

40  PRINT 

50  PRINT  "PROGRAM  NUMBER" 

60  PRINT 

70  DISP  "INSERT  AN  INITIALIZED  DISK  IN  F8,l“ 

80  PAUSE 

90  INPUT  "DISK  NO. ?" , Number 

100  INPUT  "MAIN  DISK  OR  BACKUP  DISK?  <M  OR  B ) “ , Di sk  t  ype* 
110  MASS  STORAGE  IS  ":F8,1" 

120  CREATE  " Number ",  1, 15 
130  ASSIGN  #3  TO  "Number" 

140  PRINT  #3; Number , Di sk type $ 

150  DISP  "REMEMBER  TO  LABEL  DISK" 

160  MASS  STORAGE  IS  ":F8“ 

170  END 


PRINTER  IS  It. 

PRINT  PAGE 
PRINT  "FUSS" 

FRINT 

PRINT  “ PROGRAM  FILE" 

PRINT 

LI HPI.IT  "STORAGE  DEVICE  TO  BE  USED? 
F  i  1  enarMe*=',REGISi'S..Dev-,i  c  e t 
CREATE  Fi lename*, 1 000 , 25 
ASSIGN  #5  TO  Filename* 

PRINT  #5, I ; O,0 
END 


<  :  T 1 5 ,  :  F S  t  :FS,1  ?",Deui.:< 


